Уроки по Visual Basic 6.0 – Обработка щелчков мыши Обучающий материал

Обрабатывать щелчки мыши будем на примере простой программы. Создадим новый проект и добавим на форму объект Shape1. Изменим свойства Shape, FillStyle, FillColor и BorderColor.

Еще добавим объект Label1 и изменим свойства BackColor, Alignment, Font и Caption. В результате мы получим форму с объектами Shape1-Круг и Label1(рисунок 1).


Рисунок 1 – Форма с добавленными объектами

Обрабатывать события будем при одинарном щелчке мыши и двойном. Для одинарного щелчка выбираем процедуру Label1_Click(). Команда будет иметь следующий вид:

Shape1.FillColor = &H80FF80

Так мы поменяем цвет объекта Shape1. Для двойного щелчка выбираем процедуру Label1_DblClick(). Теперь пропишем команду для обработки двойного щелчка:

Shape1.Shape = 1

Так мы круг превращаем в квадрат. Весь код программы имеет вид:

Private Sub Label1_Click()
Shape1.FillColor = &H80FF80
End Sub

Private Sub Label1_DblClick()
Shape1.Shape = 1
End Sub

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


Рисунок 2 – Вид программы после одинарного щелчка


Рисунок 3 – Вид программы после двойного щелчка