Руководство по разработке динамической логической игры на Visual Basic 6.0
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: выборы реферат, лечение пяточной шпори
| Добавил(а) на сайт: Adolija.
Предыдущая страница реферата | 18 19 20 21 22 23 24 25 26 27 28 | Следующая страница реферата
Label7_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 2 Then
markersave = 1 'Поместить левее
firstset = 0 'Временно разрешить рисование маркера
Label9.BackColor = savecolor(2) 'Восстановить цвет ячейки, где БЫЛ маркер
Label8_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 3 Then
markersave = 2 'Поместить левее
firstset = 0 'Временно разрешить рисование маркера
Label10.BackColor = savecolor(3) 'Восстановить цвет ячейки, где БЫЛ маркер
Label9_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 4 Then
markersave = 3 'Поместить левее
firstset = 0 'Временно разрешить рисование маркера
Label11.BackColor = savecolor(4) 'Восстановить цвет ячейки, где БЫЛ маркер
Label10_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 5 Then
markersave = 4 'Поместить левее
firstset = 0 'Временно разрешить рисование маркера
Label12.BackColor = savecolor(5) 'Восстановить цвет ячейки, где БЫЛ маркер
Label11_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
If markersave = 6 Then
markersave = 5 ''Поместить левее
firstset = 0 'Временно разрешить рисование маркера
Label13.BackColor = savecolor(6) 'Восстановить цвет ячейки, где БЫЛ маркер
Label12_Click 'Переместить маркер
vt = markersave
markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует
‘никакой ячейке)
End If
Рекомендуем скачать другие рефераты по теме: математика, защита дипломной работы.
Категории:
Предыдущая страница реферата | 18 19 20 21 22 23 24 25 26 27 28 | Следующая страница реферата
Главная