Руководство по разработке динамической логической игры на Visual Basic 6.0
Категория реферата: Рефераты по информатике, программированию
Теги реферата: выборы реферат, лечение пяточной шпори
Добавил(а) на сайт: Adolija.
Предыдущая страница реферата | 14 15 16 17 18 19 20 21 22 23 24 | Следующая страница реферата
Полный VB-проект с этого этапа разработки игры - в файле vbg4.zip
Покликайте мышкой на поле Frame1 и посмотрите, как все работает!
Теперь нужно написать код обработки постановки игроком игрового маркера в любую из ячеек нижней строки игрового поля.
Процедура для сохранения цветовых атрибутов всех ячеек нижней строки до установки маркера:
Private Sub Save_Color()
savecolor(0) = Label7.BackColor 'Запомнить цвет фона Label7
savecolor(1) = Label8.BackColor 'Запомнить цвет фона Label8
savecolor(2) = Label9.BackColor 'Запомнить цвет фона Label9
savecolor(3) = Label10.BackColor 'Запомнить цвет фона Label10
savecolor(4) = Label11.BackColor 'Запомнить цвет фона Label11
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 'Запомнить цвет фона всех ячеек нижней строки
Рекомендуем скачать другие рефераты по теме: математика, защита дипломной работы.
Предыдущая страница реферата | 14 15 16 17 18 19 20 21 22 23 24 | Следующая страница реферата