Событие BeforeDropOrPaste
Возникает, когда пользователь пытается перетащить или вставить данные в объект.
Синтаксис
Для кадра
Частныйобъект Sub _BeforeDropOrPaste( ByValCancelAs MSForms.ReturnBoolean,
ctrlAs Control,
Действие ByVal— fmAction,
Данные ByValкак dataObject,
ByValXкак одиночный,
ByValYкак один,
Эффект ByVal— MSForms.ReturnEffect,
ByValShift— fmShiftState)
Для MultiPage
Частныйобъект Sub _BeforeDropOrPaste(indexAs Long,
ByValCancelas MSForms.ReturnBoolean,
ctrlAs Control,
Действие ByVal— fmAction,
Данные ByValкак dataObject,
ByValXкак одиночный,
ByValYкак один,
Эффект ByVal— MSForms.ReturnEffect,
ByValShift— fmShiftState)
Для TabStrip
Частныйобъект Sub _BeforeDropOrPaste(indexAs Long,
ByValCancelas MSForms.ReturnBoolean,
Действие ByVal— fmAction,
Данные ByValкак dataObject,
ByValXкак одиночный,
ByValYкак один,
Эффект ByVal— MSForms.ReturnEffect,
ByValShift— fmShiftState)
Для других элементов управления
Частныйобъект Sub _BeforeDropOrPaste( ByValCancelAs MSForms.ReturnBoolean,
Действие ByVal— fmAction,
Данные ByValкак dataObject,
ByValXкак одиночный,
ByValYкак один,
Эффект ByVal— MSForms.ReturnEffect,
ByValShift— fmShiftState)
Синтаксис события BeforeDropOrPaste состоит из следующих частей:
| Part | Описание |
|---|---|
| object | Обязательно. Допустимое имя объекта. |
| index | Обязательно. Индекс страницы в multiPage , на который влияет операция удаления или вставки. |
| Отмена | Обязательно. Статус события. False указывает, что данный элемент управления должен обрабатывать событие (по умолчанию). True указывает, что данное приложение обрабатывает событие. |
| Ctrl | Обязательно. Целевой элемент управления. |
| Действие | Обязательно. На основе текущих параметров клавиатуры определяет результат отложенной операции перетаскивания. |
| Data | Обязательно. Данные, перетаскиваемые с помощью операции перетаскивания. Данные упаковаются в объект DataObject. |
| X, Y | Обязательно. Горизонтальное и вертикальное положение указателя мыши при падении. Обе координаты измеряются в точках. X измеряется от левого края элемента управления, Y измеряется от верха элемента управления. |
| Effect | Обязательно. Влияние операции перетаскивания на целевой элемент управления. |
| Shift | Обязательно. Задает состояние SHIFT, CTRL и ALT. |
Settings
Параметры Action:
| Константа | Значение | Описание |
|---|---|---|
| fmActionPaste | 2 | Вставляет выбранный объект в заданный для перетаскивания целевой объект. |
| fmActionDragDrop | 3 | Указывает, что пользователь перетащил объект из исходного на целевой. |
Параметрами для Effect являются:
| Константа | Значение | Описание |
|---|---|---|
| fmDropEffectNone | 0 | Исходный объект перемещения не копируется и не переносится в целевой. |
| fmDropEffectCopy | 1 | Копирует источник перетаскивания в место переноса. |
| fmDropEffectMove | 2 | Переносит источник перетаскивания в место переноса. |
| fmDropEffectCopyOrMove | 3 | Копирует или переносит источник перетаскивания в место переноса. |
Параметрами для Shift являются:
| Константа | Значение | Описание |
|---|---|---|
| fmShiftMask | 1 | Клавиша SHIFT была нажата. |
| fmCtrlMask | 2 | Клавиша CTRL была нажата. |
| fmAltMask | 4 | Клавиша ALT была нажата. |
Замечания
Для объекта MultiPage или TabStrip Visual Basic для приложений инициирует это событие при передаче объекта данных в элемент управления .
Для других элементов управления система вызывает это событие непосредственно перед выполнением операции перетаскивания или вставки.
При обработке этого события элементом управления вы можете обновить аргумент Action, чтобы определить выполняемое действие перетаскивания.
Если аргументу Effect присвоено значение fmDropEffectCopyOrMove, параметру Action можно присвоить значения fmDropEffectNone, fmDropEffectCopy или fmDropEffectMove.
Если аргументу Effect присвоено значение fmDropEffectCopy или fmDropEffectMove, параметру Action можно присвоить значение fmDropEffectNone. Изменять значение аргумента Action, если аргументу Effect присвоено значение fmDropEffectNone, нельзя.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.