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

End Sub

Private Sub Label11_Click()

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

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

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

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

End Sub

Private Sub Label12_Click()

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

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

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

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

End Sub

Private Sub Label13_Click()

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

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

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

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

End Sub

Private Sub Label14_Click()

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

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

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

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

End Sub

Private Sub Save_Color()

savecolor(0) = Label7.BackColor 'Запомнить предыдущий цвет фона Label7

savecolor(1) = Label8.BackColor 'Запомнить предыдущий цвет фона Label8

savecolor(2) = Label9.BackColor 'Запомнить предыдущий цвет фона Label9