Подробности событий мыши. Класс MouseEventArgs
Мы с вами бесчисленное количество раз писали процедуру
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
и ни разу не заглядывали внутрь скобок. А видим мы там два параметра процедуры: один с именем sender, другой – e. Первый имеет тип Object и обозначает объект, с которым случилось событие, в нашем случае – Button1. Второй имеет тип EventArgs. Это некий общий тип для второго параметра и на нем мы останавливаться не будем. Рассмотрим лучше заголовки процедур для событий MouseDown, MouseUp и MouseMove. Например:
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseDown
События эти похожи и параметры у всех трех одинаковые. Мы уже сейчас можем извлечь пользу из параметра e, являющегося объектом класса MouseEventArgs. Польза от него та, что он содержит информацию о событии, например, какая кнопка мыши была нажата и какие у мыши в этот момент были координаты. Информация эта находится в нескольких свойствах объекта MouseEventArgs. Приведу те, что нас интересуют:
| Свойства | Смысл | Тип значения |
| ||
| X, Y | Координаты острия курсора мыши в момент события | Integer | |||
| Button | Какая именно из кнопок мыши была нажата | Перечисление MouseButtons со значениями: Left (левая), Right (правая), Middle (средняя), None (никакая) и пара значений для пятикнопочной мыши. | |||
| Clicks | Равняется 0 (если не было щелчка), 1 (если был одинарный щелчок) или 2 (если был двойной щелчок). | Integer |
Кроме этого класс MouseEventArgs поддерживает работу с колесом мыши.
Для того, чтобы понять и проверить смысл этих свойств, прочтите (чтобы понять) и запустите (чтобы проверить) такую программу:
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseDown
Debug.WriteLine(e.X & " " & e.Y) 'Печатаем координаты события
Debug.WriteLine(e.Button.ToString) 'Печатаем английское название кнопки
If e.Button = MouseButtons.Left Then Debug.WriteLine("Нажата левая кнопка мыши")
If e.Button = MouseButtons.Right Then Debug.WriteLine("Нажата правая кнопка мыши")
If e.Button = MouseButtons.Middle Then Debug.WriteLine("Нажата средняя кнопка мыши")
End Sub
Private Sub Form1_MouseUp( ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
Debug.WriteLine(e.X & " " & e.Y) 'Печатаем координаты события
Debug.WriteLine(e.Button.ToString) 'Печатаем английское название кнопки
If e.Button = MouseButtons.Left Then Debug.WriteLine("Отпущена левая кнопка мыши")
If e.Button = MouseButtons.Right Then Debug.WriteLine("Отпущена правая кнопка мыши")
If e.Button = MouseButtons.Middle Then Debug.WriteLine("Отпущена средняя кнопка мыши")
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseMove
Debug.WriteLine(e.X & " " & e.Y) 'Печатаем координаты события
Debug.WriteLine(e.Button.ToString) 'Печатаем английское название кнопки
If e.Button = MouseButtons.Left Then Debug.WriteLine("Удерживается нажатой левая кнопка мыши")
If e.Button = MouseButtons.Right Then Debug.WriteLine("Удерживается нажатой правая кнопка мыши")
If e.Button = MouseButtons.Middle Then Debug.WriteLine("Удерживается нажатой средняя кнопка мыши")
If e.Button = MouseButtons.None Then Debug.WriteLine("Не нажата ни одна кнопка мыши")
End Sub
Пояснения: Здесь я использовал свойственный объектам метод ToString, который возвращает в виде вразумительной строки имя или значение объекта.
Пощелкайте в разных местах формы всеми тремя кнопками мыши. Повозите мышь над формой, удерживая нажатой ту или иную кнопку. В окне Output вы будете наблюдать последовательность сообщений примерно такого вида:
264 24
None
Не нажата ни одна кнопка мыши
264 24
Left
Нажата левая кнопка мыши
337 83
Left
Удерживается нажатой левая кнопка мыши
337 83
Left
Отпущена левая кнопка мыши
341 83
None
Не нажата ни одна кнопка мыши
Пояснения здесь излишни.
Итоги. В тонкости я, конечно, не вникал, но полученной информации о мыши вполне достаточно для решения реальных задач.
