КАТЕГОРИИ:
Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)
End Sub
|
|
|
|
Сброс
End Sub
Сброс
End Sub
Сброс
End Sub
Сброс
End Sub
Сброс
End Sub
Сброс
End Sub
Сброс
End Sub
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H80000000
Label2.BackColor = &H80000000
Label3.BackColor = &H80000000
Label4.BackColor = &H80000000
Label5.BackColor = &H80000000
Label6.BackColor = &H80000000
Label7.BackColor = &H80000000
' Наезд указателя мыши на Форму
Label1.BackColor = &H80000006
Label2.BackColor = &H80000006
Label3.BackColor = &H80000006
Label4.BackColor = &H80000006
Label5.BackColor = &H80000006
Label6.BackColor = &H80000006
Label7.BackColor = &H80000006
' Инициализация изображений
Sub сброс()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
' Щелчок по метке
Private Sub Label1_Click()
Image1.Visible = True
Private Sub Label2_Click()
Image2.Visible = True
Private Sub Label3_Click()
Image3.Visible = True
Private Sub Label4_Click()
Image4.Visible = True
Private Sub Label5_Click()
Image5.Visible = True
Private Sub Label6_Click()
Image6.Visible = True
Private Sub Label7_Click()
Image7.Visible = True
Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.
Сравните созданное приложение с приложением Город.ехе (VB Учебные \ Проекты \ 15 Наш город).
Задание 4. События флажков и переключателей
Рис. 31. Окно формы Элементы управления
Откройте проект Проект1.vbp рис. 31 (VB Учебные \ Проекты \ 02 Элементы управления).
Проанализируйте программный код.
Закройте Visual Basic без сохранения проекта.
Вопросы для самоконтроля:
- Каковы особенности программирования в среде Windows?
- Что такое управление программой по событиям?
- Основные события мыши и клавиатуры.
- Процедуры обработки событий.
- Создайте приложение с использованием события клавиатуры.
- Создайте приложение с использованием события мыши.
|
|
|
|
|
Дата добавления: 2014-12-27; Просмотров: 354; Нарушение авторских прав?; Мы поможем в написании вашей работы!