Задание 3. События перемещения указателя мыши MouseMove
Создайте новый проект.
Присвойте свойству формы Caption значение «Наш Город».
Разместите на форме объект Image1.
Присвойте свойству Stretch этого объекта значение True.
Для свойства Picture выберите файл Машерова.jpg ( VB Учебные \ Фотогаллерея \ Минск ).
На это изображение разместите последовательно ещё шесть элементов управления Image:
Image2 Stretch – True, Picture – Немига.jpg
Image3 Stretch – True, Picture – Троицкое.jpg
Image4 Stretch – True, Picture – Оперный театр.jpg
Image5 Stretch – True, Picture – Кино Москва.jpg
Image6 Stretch – True, Picture – Колас.jpg
Image7 Stretch – True, Picture – Авто.jpg
В меню Правка выполните команду выделить всё. Присвойте свойству Visible значение False.
Рядом с изображениями разместите семь меток Label1 – 7 (рис. 30).
Рис. 30. Окно формы Наш город
Отформатируйте их в соответствие с рисунком. Свойству BackColor присвойте значение Window Frame. Свойству ForeColor – Window Backgrownd.. Свойству Alignment – 2–Center.
Создайте программный код. При создании программного кода используйте буфер обмена для копирования процедур.
' Наезд указателя мыши на Метку
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H80000000
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.BackColor = &H80000000
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.BackColor = &H80000000
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = &H80000000
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.BackColor = &H80000000
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.BackColor = &H80000000
End Sub
Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BackColor = &H80000000
End Sub
' Наезд указателя мыши на Форму
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H80000006
Label2.BackColor = &H80000006
Label3.BackColor = &H80000006
Label4.BackColor = &H80000006
Label5.BackColor = &H80000006
Label6.BackColor = &H80000006
Label7.BackColor = &H80000006
End Sub
' Инициализация изображений
Sub сброс()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
End Sub
' Щелчок по метке
Private Sub Label1_Click()
сброс
Image1.Visible = True
End Sub
Private Sub Label2_Click()
сброс
Image2.Visible = True
End Sub
Private Sub Label3_Click()
сброс
Image3.Visible = True
End Sub
Private Sub Label4_Click()
сброс
Image4.Visible = True
End Sub
Private Sub Label5_Click()
сброс
Image5.Visible = True
End Sub
Private Sub Label6_Click()
сброс
Image6.Visible = True
End Sub
Private Sub Label7_Click()
сброс
Image7.Visible = True
End Sub
Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.
Сравните созданное приложение с приложением Город.ехе ( VB Учебные \ Проекты \ 15 Наш город ).