Уроки по Visual Basic 6.0 – Программа для рисования мышью Обучающий материал

Напишем программу, в которой можно рисовать на форме мышью. Для реализации поставленной задачи воспользуемся методом Line().

Текст программы рисования линии будем писать в процедуре Form_MouseMove() (рисунок 1). Так мы сможем узнать нажата левая кнопка мыши или нет.


Рисунок 1 – процедура Form_MouseMove()

Параметр Button показывает кнопку мыши, которая нажата в данный момент.
Проверять этот параметр будем с помощью конструкции условия IF-Then:

If Button = 1 Then
Line –(X, Y)
End If

Результат работы данного кода представлен на рисунке 2.


Рисунок 2 – Результат работы кода программы в процедуре Form_MouseMove()

Все было бы хорошо, только рисование начинается с левого верхнего угла. Чтобы задать координаты положения курсора мыши, применим свойства CurrentX и CurrentY:

Form1.CurrentX = X
Form1.CurrentY = Y

Запишем эти строки в процедуру Form_MouseDown(). Результат работы всей программы представлен на рисунке 3.


Рисунок 3 – Результат работы программы

Теперь точка начала рисования определяется исходя из положения курсора мыши. Чтобы изменить цвет линий, добавьте название нужного цвета после метода Line(). Например:

Line -(X, Y), vbGreen

Теперь линии будут зеленого цвета (рисунок 4).


Рисунок 4 – Пример изменения цвета линий