Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

If field(i, j) = 19 Then Label56.ForeColor = &H80000008

'Label7.Caption = Label56.Caption

'Label7.BackColor = Label56.BackColor

'Label7.ForeColor = Label56.ForeColor

'Form1.Caption = field(0, 0)

End Sub

Private Sub Field_Fill()

'Копирование номиналов и атрибутов из «дежурной» ячейки  Label56

k = 0 ‘Счетчик ячеек

For j = 0 To 4

 For i = 0 To 7

 Color_Chars 'Поместить следующее значение из массива field(i, j) в Label56

                      ‘и вычислить цветовые атрибуты символа и фона по ее номиналу

 If k = 0 Then Label7.Caption = Label56.Caption

 If k = 0 Then Label7.BackColor = Label56.BackColor

 If k = 0 Then Label7.ForeColor = Label56.ForeColor

 

 If k = 1 Then Label8.Caption = Label56.Caption

 If k = 1 Then Label8.BackColor = Label56.BackColor

 If k = 1 Then Label8.ForeColor = Label56.ForeColor

 

 If k = 2 Then Label9.Caption = Label56.Caption

 If k = 2 Then Label9.BackColor = Label56.BackColor

 If k = 2 Then Label9.ForeColor = Label56.ForeColor

 

Рекомендуем скачать другие рефераты по теме: математика, защита дипломной работы.



Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки