Событие BeforeDragOver
Возникает во время выполнения операции перетаскивания.
Синтаксис
Для кадра
Частный вложенныйобъект _BeforeDragOver( ByValCancelAs MSForms.ReturnBoolean,
ctrlAs Control,
Данные ByValкак dataObject,
ByValXкак одиночный,
ByValYкак один,
ByValDragState— fmDragState,
Эффект ByVal— MSForms.ReturnEffect,
ByValShift— fmShiftState)
Для MultiPage
Частныйобъект Sub _BeforeDragOver(indexAs Long,
ByValCancelas MSForms.ReturnBoolean,
ctrlAs Control,
Данные ByValкак dataObject,
ByValXкак одиночный,
ByValYкак один,
ByValDragState— fmDragState,
Эффект ByVal— MSForms.ReturnEffect,
ByValShift— fmShiftState)
Для TabStrip
Частныйобъект Sub _BeforeDragOver(indexAs Long,
ByValCancelas MSForms.ReturnBoolean,
Данные ByValкак dataObject,
ByValXкак одиночный,
ByValYкак один,
ByValDragState— fmDragState,
Эффект ByVal— MSForms.ReturnEffect,
ByValShift— fmShiftState)
Для других элементов управления
Частный вложенныйобъект _BeforeDragOver( ByValCancelAs MSForms.ReturnBoolean,
Данные ByValкак dataObject,
ByValXкак одиночный,
ByValYкак один,
ByValDragState— fmDragState,
Эффект ByVal— MSForms.ReturnEffect,
ByValShift— fmShiftState)
Синтаксис события BeforeDragOver состоит из следующих частей:
| Part | Описание |
|---|---|
| object | Обязательно. Допустимое имя объекта. |
| index | Обязательно. Индекс страницы в multiPage , на который влияет операция перетаскивания. |
| Отмена | Обязательно. Статус события. False указывает, что данный элемент управления должен обрабатывать событие (по умолчанию). True указывает, что данное приложение обрабатывает событие. |
| Ctrl | Обязательно. Перетаскиваемый элемент управления. |
| Data | Обязательно. Данные, перетаскиваемые с помощью операции перетаскивания. Данные упаковаются в объект DataObject. |
| X, Y | Обязательно. Координаты положения элемента управления по горизонтали и вертикали. Обе координаты измеряются в точках. X измеряется от левого края элемента управления, Y измеряется от верха элемента управления. |
| DragState | Обязательно. Переходное состояние перетаскиваемых данных. |
| Effect | Обязательно. Операции, поддерживаемые источником перетаскивания. |
| Shift | Обязательно. Задает состояние SHIFT, CTRL и ALT. |
Settings
Параметрами для 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 была нажата. |
Замечания
Используйте это событие для отслеживания указателя мыши, когда он входит в допустимую целевую область, покидает ее или находится над ней в неподвижном состоянии. Когда выполняется операция перетаскивания, система инициирует данное событие, когда пользователь перемещает мышь или нажимает или отпускает одну или несколько кнопок мыши. Положение указателя мыши определяет конечный объект, получающий данное событие. Вы можете определить состояние указателя мыши, просмотрев аргумент DragState.
Когда элемент управления обрабатывает данное событие, вы можете использовать аргумент Effect для определения действия перетаскивания, которое требуется выполнить.
Когда для Effect установлено значение fmDropEffectCopyOrMove, источник перетаскивания поддерживает операцию копирования (fmDropEffectCopy), перемещения (fmDropEffectMove) или отмены (fmDropEffectNone).
Когда для Effect установлено значение fmDropEffectCopy, источник перетаскивания поддерживает операцию копирования или отмены (fmDropEffectNone).
Когда для Effect установлено значение fmDropEffectMove, источник перетаскивания поддерживает операцию перемещения или отмены (fmDropEffectNone).
Если для effect задано значение fmDropEffectNone, источник удаления поддерживает операцию отмены.
Большинство элементов управления не поддерживают перетаскивание, а параметр Cancel имеет значение False, что является параметром по умолчанию. Это означает, что элемент управления отклоняет попытки перетаскивания чего-либо на элементе управления, а элемент управления не инициирует событие BeforeDropOrPaste. Элементы управления TextBox и ComboBox являются исключениями. Эти элементы управления поддерживают операции перетаскивания, даже если отмена имеет значение False.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.