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, _
ByVal DragState As fmDragState, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As fmShiftState)
Private Sub object_BeforeDropOrPaste(ByVal Cancel As _
MSForms.ReturnBoolean, ByVal Action As fmAction, _
ByVal Data As DataObject, ByVal X As Single, ByVal Y As Single, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As fmShiftState)
Аргументы:
Cancel | Допустимые значения: False (по умолчанию, элемент управления обрабатывает событие) и True (приложение обрабатывает событие) |
Data | Данные, перемещаемые во время операции drag-and-drop. Эти данные размещаются в объекте DataObject. Объект DataObject это своеобразный аналог буфера обмена, в отличии от которого в нем допускается хранить только текстовую информацию |
X и Y | Расстояние от левого верхнего угла элемента управления по горизонтали и вертикали |
DragState | Устанавливает позицию указателя мыши относительно целевого объекта. Допустимые значения: fmDragStateEnter или 0 (указатель мыши внутри целевого элемента управления) fmDragStateLeave или 1 (указатель мыши вне целевого элемента управления) fmDragStateOver или 2 (указатель мыши в новой позиции, но остается внутри элемента управления) |
Effect | Устанавливает операцию, производимую над объектом. Допустимые значения: - fmDropEffectNone или 0(не копировать и не перемещать объект) fmDropEffectCopy или 1 (копировать объект) fmDropEffectMove или 2 (перемещать объект) fmDropEffectCopyOrMove или 3 (копировать или перемещать объект) |
Shift | Возвращает код (значение) нажатой на клавиатуре клавиши. Допустимые значения: -fmShiftMask ИЛИ 1 (<Shift>) -fmCtrlMask ИЛИ 2 (<Ctrl>) - fmAltMask ИЛИ 4 (<Alt>) |
Стандартные объекты и элементы управления
|
|