Уроки по Visual Basic 6.0 – Программа для рисования мышью Обучающий материал
Напишем программу, в которой можно рисовать на форме мышью. Для реализации поставленной задачи воспользуемся методом Line().
Текст программы рисования линии будем писать в процедуре Form_MouseMove() (рисунок 1). Так мы сможем узнать нажата левая кнопка мыши или нет.

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

Рисунок 2 – Результат работы кода программы в процедуре Form_MouseMove()
Все было бы хорошо, только рисование начинается с левого верхнего угла. Чтобы задать координаты положения курсора мыши, применим свойства CurrentX и CurrentY:
Запишем эти строки в процедуру Form_MouseDown(). Результат работы всей программы представлен на рисунке 3.

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

Рисунок 4 – Пример изменения цвета линий
Текст программы рисования линии будем писать в процедуре 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 – Пример изменения цвета линий
0 комментариев