Книга: Основы программирования в среде Visual Basic for Application VBA

Событие Событие происходит

MouseDown При нажатии кнопки мыши

MouseUp При отпускании кнопки мыши

MouseMove При перемещении указателя мыши

Синтаксис:

Private Sub object_MouseDown( ByVal Button As fmButton, _

ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)

Private Sub object_MouseUp ( ByVal Button As fmButton, _

ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)

Private Sub object_MouseMove( ByVal Button As fmButton,_

ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)

Аргументы:

Button	Возвращает код (значение) нажатой кнопки мыши. Допустимые значения: - fmButtonLeft или l (левая) -fmButtonRight ИЛИ 2 (правая) -fmButtonMiddle ИЛИ 4 (средняя)
Shift	Возвращает код (значение) нажатой на клавиатуре клавиши. Допустимые значения: fmShiftMask ИЛИ 1 (<Shift>) fmCtrlMask ИЛИ 2 (<Ctrl>) fmAltMask ИЛИ 4 (<Alt>) .
X и Y	Возвращает значение расстояния от левого или от верхнего края формы, рамки или страницы. При событии MouseMove этим расстоянием считается путь в направлении от левого верхнего угла элемента управления по горизонтали или вертикали

Рассмотрим синтаксис процедур обработки событий при операциях drag-and-drop, связанных с элементами управления.

События, связанные с перемещением элемента управления

Событие Событие происходит

BeforeDragOver Пока совершается операция drag-and-drop

BeforeDropOrPaste Перед завершением операции drag-and-drop

Синтаксис:

Private Sub object_BeforeDragOver(ByVal Cancel As _

MSForms.ReturnBoolean, ByVal Data As DataObject, _

ByVal X As Single, ByVal Y As Single, _