Приложение: цветы-событие.rar
Занятие 10.1. События и их обработчики. Пример
Система Windows генерирует события (сообщения для приложения), которые предназначены для управления работой приложения. Приложение может реагировать или не реагировать на событие. Для того чтобы приложение реагировало на событие, необходимо поместить программный код в заготовке соответствующей событийной процедуры.
- Некоторые события поддерживают почти все управляющие элементы.
Примеры нескольких событий формы:
 |
|
|
Задание. Разработать проект " События - цветы"
Интерфейс проекта
Программный код.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
Me.BackColor = Color.Fuchsia
End Sub
Private Sub Label2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
PictureBox1.Visible = True
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
Me.BackColor =Color.Teal
End Sub
Private Sub Label3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseMove
PictureBox2.Visible = True
PictureBox1.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
Me.BackColor =Color.Salmon
End Sub
Private Sub Label4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label4.MouseMove
PictureBox3.Visible = True
PictureBox2.Visible = False
PictureBox1.Visible = False
PictureBox4.Visible = False
Me.BackColor = Color.OrangeRed
End Sub
Private Sub Label5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label5.MouseMove
PictureBox4.Visible = True
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox1.Visible = False
Me.BackColor =Color.MediumOrchid
End Sub
