ПОНЯТНО О Visual Basic NET (том 2)

Основные события, связанные с мышью


Создадим проект с кнопкой. Зайдем в окно кода и заглянем в события, связанные с формой. Среди них отыщем события, относящиеся к мыши. Нас интересуют такие: Click (щелчок), DoubleClick (двойной щелчок), MouseDown (нажали клавишу мыши), MouseUp (отпустили клавишу мыши), MouseEnter (мышь появилась над формой), MouseLeave (мышь покинула форму),  MouseMove (сдвинули мышь).

Проверим работу этих событий, для чего введем такой код:

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click

        Debug.WriteLine("Сработало событие Click")

End Sub

Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.DoubleClick

        Debug.WriteLine("Сработало событие DoubleClick")

End Sub

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)  _

Handles MyBase.MouseDown

        Debug.WriteLine("Сработало событие MouseDown")

End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp

        Debug.WriteLine("Сработало событие MouseUp")

End Sub

 Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.MouseEnter

        Debug.WriteLine("Сработало событие MouseEnter")

End Sub

Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.MouseLeave

        Debug.WriteLine("Сработало событие MouseLeave")

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)  _

Handles MyBase.MouseMove

        Debug.WriteLine("Сработало событие MouseMove")

End Sub

Запустите проект. Сделайте окно Output повыше размером. Перемещая мышь и щелкая разными ее кнопками, а также перемещая мышь при нажатых кнопках, наблюдайте в окне Output порядок наступления событий. Обратите внимание, что вне формы и над кнопкой события не срабатывают. Вот необходимые пояснения:



Содержание раздела