VB 16. Обработка событий мыши

Выполнение:

1. Для вывода графического изображения будем использовать саму форму. Первый инструмент, который мы создадим, будет квадрат, т.е. при перемещении указателя мыши на форме под курсором будет рисоваться квадрат.
2. Для этого необходимо запрограммировать событие MouseMove (перемещение мыши) для формы. Дважды щелкните на форме, чтобы вызвать процедуру описания события Load формы (Загрузка), а затем из списка событий над рабочей областью выберите пункт MouseMove. В коде программы появится описание процедуры:

Private Sub Form1_MouseMove(…) Handles Me.MouseMove
 
End Sub

3. Теперь опишем необходимые переменные для создания изображений в VB:

Dim myg As Graphics = CreateGraphics() ' для построения изображения
Dim myb As New SolidBrush(Color.Red) ' переменная инструмента Кисть красного цвета

Класс Graphics предоставляет методы для вывода объектов в устройстве отображения. Объект Graphics связан с конкретным контекстом устройства. Используя объект Graphics, можно нарисовать много разных фигур и линий.

SolidBrush – класс, определяющий кисть одного цвета. Кисти используются для заливки графических фигур, таких как прямоугольники, эллипсы, круги, многоугольники и контуры. Этот класс не наследуется.

4. Для распознания текущего положения курсора будем использовать специальную переменную e, которая уже описана в процедуре MouseMove ().
5. Теперь введем процедуру, рисующую прямоугольник высотой и шириной 10 пикселей, с координатами X и Y курсора мыши. Цвет прямоугольника зависит от значения переменной myb:

myg.FillRectangle(myb, e.X, e.Y, 10, 10)

где myb – наша кисть для заливки красного цвета, e.X, e.Y – горизонтальная и вертикальная координаты курсора мыши для задания верхней левой точки прямоугольника, 10, 10 – заполнение области прямоугольника.

6. Запустите приложение и поводите мышкой по форме. Под курсором рисуется квадрат. Но в данном случае мы не управляем процессом вывода. Необходимо, чтобы мы могли подавать команды для начала и окончания рисования квадрата. Самый удобный способ – это подавать данные команды мышью, к примеру, чтобы квадрат рисовался при нажатой левой клавише мыши.
7. Для этого в начале модуля формы (после кода Public Class Form1) необходимо описать переменную КнопкаНажата логического типа.

Private КнопкаНажата As Boolean

8. Затем необходимо запрограммировать два события для формы (выбирая их в списке событий формы): когда кнопка мыши опускается вниз (MouseDown), и когда кнопка мыши поднимается вверх (MouseUp):

Private Sub Form1_MouseDown(…) Handles Me.MouseDown
 КнопкаНажата = True
End Sub

Private Sub Form1_MouseUp(…) Handles Me.MouseUp
 КнопкаНажата = False
End Sub

9. Теперь осталось в событии перемещения мыши добавить условный оператор, благодаря которому прямоугольники рисуются только в случае, если переменная КнопкаНажата имеет значение True:

If КнопкаНажата Then
 myg.FillRectangle(myb, e.X, e.Y, 10, 10)
End If

• Для выполнения дополнительного и контрольных заданий добавим на нашей форме меню, назовем его Инструменты, в котором будут перечисляться созданные графические инструменты. Вызывать тот или иной инструмент можно при помощи переменных, описанных в модуле формы:

Private ИнструментКвадрат  As Boolean
Private ИнструментЛиния As Boolean

11. В событии Click каждого пункта меню добавьте необходимый код. К примеру, для пункта Квадрат:

ИнструментКвадрат = True
ИнструментЛиния = False

12. В описание MouseMove следует также добавить дополнительные условия. Для рисования квадрата:

If КнопкаНажата And ИнструментКвадрат = True Then
 myg.FillRectangle(myb, e.X, e.Y, 10, 10)
End If

Если что-либо осталось непонятным, предлагаем просмотреть видео: