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

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

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

Уроки по Visual Basic 6.0 – Обработка щелчков мыши
Рисунок 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.

Уроки по Visual Basic 6.0 – Обработка щелчков мыши
Рисунок 2 – Вид программы после одинарного щелчка

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

0 комментариев

Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.