End Select. Private Sub Form_MouseUp (Button As Integer, Shift As Integer, X as Single, Y as Single)

Case Else

Select Case Shift

End Sub

Circle (X, Y), 100

Private Sub Form_MouseUp (Button As Integer, Shift As Integer, X as Single, Y as Single)

End Sub

Circle (X, Y), 100

Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X as Single, Y as Single)

Объект_ событие мыши (Button as Integer, Shift As Integer, X as Single, Y as_ Single)

Параметр Button определяет, какая кнопка мыши нажата.

Параметр Shift определяет, нажата ли при этом клавиша Ctrl, Alt или Shift.

X, Y - определяет текущую позицию указателя мыши, используя внутренние координаты объекта - контейнера.

Например, следующая процедура при нажатии кнопки мыши рисует круг размером 100 твипов в том месте, где находится указатель мыши.

Пусть, при отпускании кнопки мыши, нарисованная окружность будет заполнена случайным цветом:

FillStyle = 0 ‘Заполнение окружности

FillColor = QBColor (Int (15*RND)) ‘ случайным цветом

Параметр Button, используя 3 младших бита числа, позволяет определить, какая из 3-х клавиш мыши была нажата.

Таблица 2.6

Клавиша	Константа	Значение параметра Button
Левая	vbLeftButton
Правая	vbRightButton
Средняя	vbMiddleButton

Visual Basic в процедурах MouseUp (MouseDown) дает информацию только об одной кнопке, либо левой, либо средней, либо правой.

Можно комбинировать использование мыши и клавиатуры, например, по комбинации Shift + правая кнопка мыши вызвать специальное всплывающее меню, а по Ctrl + левая кнопка - копировать объект. Здесь используется параметр Shift в процедурах MouseUp и MouseDown:

Таблица 2.7

Клавиша	Константа	Биты и значения
Shift	VbShiftMask	Бит 0: значение = 1
Ctrl	VbCtrlMask	Бит 1: значение = 2
Alt	VbAltMask	Бит 2: значение = 4
Shift + Ctrl	VbShiftMask+vbCtrlMask	Биты 0 и 1: значение = 3
Shift + Alt	VbShiftMask+ vbAltMask	Биты 0 и 2: значение = 5
Ctrl + Alt	vbCtrlMask+ vbAltMask	Биты 1 и 2: значение = 6
Shift + Ctrl + Alt	VbShiftMask + vbCtrlMask+ vbAltMask	Биты 0,1,2: значение = 7

Пример. Анализ нажатой клавиши.

Case 1 ‘ vbShiftMask

print "нажата клавиша Shift"

Case 2 ‘ vbCtrlMask

print "нажата клавиша Ctrl"

Case 3 ‘ vbShiftMask + vbCtrlMask

print "нажаты Shift и Ctrl"

Case 4 ‘ vbAltMask

print "нажата клавиша Alt"

print "нажаты другие клавиши"

Процедура события MouseMove вызывается при перемещении указателя мыши. Она может быть использована для полного анализа состояния клавиш мыши. Здесь параметр Button указывает, была ли нажата одна или обе клавиши мыши, или не нажата ни одна из кнопок.

Таблица 2.8

Клавиша	Значение параметра Button	Константа
Левая		vbLeftButton
Правая		vbRightButton
Средняя		vbMiddleButton
Левая + Правая		VbLeftButton + vbRightButton
Левая + Средняя		vbLeftButton + vbMiddleButton
Прааяв + Средняя		VbRightButton + vbMiddleButton
Все три		VbLeftButton+vbMiddleButton +vbRightButton

Если у мыши только 2 кнопки, то третий бит = 0

Дата добавления: 2014-12-10