VB.net - События для мыши

В этой статье собраны часто встречающиеся события, связанные с поведение мыши.

•     MouseDown - Событие происходит когда клавиша мышки переходит в нажатое состояние
•     MouseUp - Событие происходит когда клавиша мышки переходит в отжатое состояние
•     MouseMove - Событие происходит когда курсор перемещается по объекту
•     MouseLeave - Очень нужное событие которого не хватало предыдущих версиях VB. Оно происходит когда курсор отводится с объекта.
•     MouseEnter - Событие происходит когда курсор вводится на объект
•     Click - Событие происходит при клике на объекте
•     DoubleClick - Событие происходит при двойном клике на объекте

    Свойства переменной e:

    X - Координаты мыши по оси X
    Y - Координаты мыши по оси Y

    Clicks - Количество сделаных кликов за раз

    Button - Используется в основном в связке с оператором IF .. Then .. End if, может принимать следующие значения:

•          MouseButtons.Left - Нажата левая кнопка
•          MouseButtons.Middle - Нажата средняя кнопка
•          MouseButtons.Right - Нажата правая кнопка

Примеры:

 При нажатии кнопки мыши по форме определяем какая кнопка мыши была нажата

  Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

        If e.Button = MouseButtons.Right Then MsgBox("Нажата правая кнопка мыши")
        If e.Button = MouseButtons.Left Then MsgBox("Нажата левая кнопка мыши")
    End Sub

 При передвижении курсора по форме определяем его координаты

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        Form1.ActiveForm.Text = e.X & " X " & e.Y

    End Sub

-

В начало