2017-11-30
600
По значению свойства OLEDropAllowed можно определить, позволяет ли контейнер OLE выполнять операции сбрасывания OLE. Свойство может принимать следующие значения.
| True | Операции сбрасывания OLE в данном контейнере разрешены |
| False | Значение по умолчанию. Операции сбрасывания OLE в данном контейнере запрещены |
Событие OLEDragDrop()
Событие происходит при выполнении сбрасывания OLE в контейнере OLE c разрешенной поддержкой сбрасывания. Процедура события имеет следующий синтаксис:
Private Sub объект_OLEDragDrор(данные As DataObject, действие As Long, кнопки As Integer, клавиши As Integer, x As Single, у As Single)
У этой процедуры много параметров, смысл которых необходимо понимать. В параметре данные передается объект OLE DataObject, o котором говорилось ранее. Для получения от этого объекта сброшенных данных можно воспользоваться методом GetData.
Параметр действие сообщает компоненту-приемнику, какое действие должно выполняться с данными. Именно в нем вы указываете источнику OLE, как поступить с перетаскиваемыми данными (например, удалить их из источника после копирования в приемник, то есть переместить данные). Параметр действие может принимать следующие значения.
|
|
|
| vbDropEffectNone – 0 | Приемник не принимает данные OLE |
| VbDropEffectCopy - 1 | Данные копируются из источника в приемник |
| VbDropEffectMove - 2 | Данные перемещаются из источника в приемник |
| VbDropEffectScroll -2147483648 | Значение представляет собой маску, которая показывает, требуется ли прокрутка приемника при сбрасывании на него данных.Это значение используется очень редко и только в самых сложных приложениях |
Параметр кнопка определяет кнопку мыши, нажатую во время операции перетаскивания OLE. Он может представлять собой произвольную комбинацию следующих значений.
| Нажата левая кнопка мыши | |
| Нажата правая кнопка мыши | |
| Нажата средняя кнопка мыши |
По значению параметра клавиши можно узнать, были ли нажаты во время перетаскивания служебные клавиши Ctrl, Shift или Alt. При проверке можно воспользоваться оператором AND (для поразрядного сравнения) или проверить целочисленные значения из следующей таблицы.
| Нажата клавиша Shift | |
| Нажата клавиша Ctrl | |
| Нажата клавиша Alt |
Параметры x и у определяют точную позицию курсора мыши. Они пригодятся в тех ситуациях, когда сбрасывание должно происходить в конкретной точке приемника.
Событие OLECompleteDrag ()
Событие OLECompleteDrag происходит при сбрасывании данных из источника и успешном выполнении операции копирования или перемещения, а также при отмене операции. В операциях перетаскивания OLE это событие вызывается последним. Вы можете сообщить источнику, какая операция была выполнена приемником, чтобы он поступил должным образом.
|
|
|
Событие обладает всего одним параметром: действие. Этот параметр аналогичен одноименному параметру события OLEDragDrop, за исключением того, что он не может принимать значение vbDropEffectScroll.
