Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.57
Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.57

Мы уже перемещали объект на форме элемента управления Label. Теперь составим такую же программу для объекта, созданного с использованием события Paint. Сначала объявим переменные, видимые в модуле, затем определим кнопку, приводящую программу в действие и, наконец, событием MouseMove установим зависимость координат объекта от координат указателя мыши. Этим же событием осуществляется перерисовка объекта.

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

Dim x As Single Dim y As Single Dim i As Boolean

Private Sub Forml_MouseDown(ByVal sender As Object, ByVal e _ As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown If e.Button = MouseButtons.Left Then i = True End If End Sub

Private Sub Forml_MouseMove(ByVal sender As Object, ByVal e _

As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If i = True Then

x = e.X

y = e.Y

Me.RefreshO

End If

End Sub

Private Sub Forml_MouseUp(ByVal sender As Object, ByVal e _ As System.Windows.Forms.MouseEventArgs) Handles MyBase.Mouseup i = False End Sub

Private Sub Forml_Paint(ByVal sender As Object, ByVal e _ As Systern.Windows.Forms.PaintEventArgs) Handles MyBase.Paint e.Graphics.FillRectangle(Brushes.Blue, x, y, 50, 50) End Sub End Class

8.4. MouseEnter и MouseLeave

Событие MouseEnter происходит, когда указатель мыши оказывается над элементом управления, а событие MouseLeave -когда указатель мыши покидает объект. В следующем примере при прохождении указателя над кнопкой Button происходит смена цвета кнопки и текста в элементе TextBox.

Private Sub Buttonl_MouseEnter(ByVal sender As Object, ByVal e _ As System. Event Args) Handles But tonl .MouseEnter Buttonl.BackColor = Color.Red TextBoxl.Text = «указатель мыши» End Sub

MouseEnter и MouseLeave

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

ГЛАВА 8 ▼ Рисуем с помощью мыши

Private Sub Buttonl_MouseLeave(ByVal sender As Object, ByVal e _ As System.EventArgs) Handles Buttonl.MouseLeave Buttonl.BackColor = Color.Purple TextBox1.Text = «» End Sub

Похожий результат можно получить при использовании событий MouseMove и MouseHover.

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

Использование клавиатуры

Для управления графическими объектами чаще всего используется клавиатура. Пример тому - компьютерные игры. Нажатием клавиш на клавиатуре можно вызвать три события: KeyPress, KeyDown и KeyUp.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta