Реферат: Программирование логической игры на visual basic

savecolor(5) = Label12.BackColor 'Запомнить цвет фона Label12

savecolor(6) = Label13.BackColor 'Запомнить цвет фона Label13

savecolor(7) = Label14.BackColor 'Запомнить цвет фона Label14

End Sub

Создадим триггер firstset = 0

Триггер =0, если маркер в нижнюю строку еще не ставили.

Общий фрагмент кода, обрабатывающий установку маркера в нижней строке:

Private Sub Label7_Click()

If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки

If firstset = 0 Then Label7.BackColor = &HFF0000 'Маркер СИНЕГО цвета

If firstset = 0 Then firstset = 1 'Больше не обрабатывать

markersave = 0 'Маркер в ячейке, соответствующей savecolor(0)

End Sub

Private Sub Label8_Click()

If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки

If firstset = 0 Then Label8.BackColor = &HFF0000 'Маркер СИНЕГО цвета

If firstset = 0 Then firstset = 1 'Больше не обрабатывать

markersave = 1 'Маркер в ячейке, соответствующей savecolor(1)

End Sub

Private Sub Label9_Click()

If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки

If firstset = 0 Then Label9.BackColor = &HFF0000 'Маркер СИНЕГО цвета

If firstset = 0 Then firstset = 1 'Больше не обрабатывать

markersave = 2 'Маркер в ячейке, соответствующей savecolor(2)

End Sub

Private Sub Label10_Click()

If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки

If firstset = 0 Then Label10.BackColor = &HFF0000 'Маркер СИНЕГО цвета

If firstset = 0 Then firstset = 1 'Больше не обрабатывать