Свойство OLEDropAllowed

По значению свойства 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.

Событие OLEStartDrag()

Событие происходит при выполнении перетаскивания OLE для источника с выбранным ручным режимом перетаскивания (свойство OLEDragMode - vbOLEDrag Manual). Кроме того, оно происходит в тех случаях, когда компонент-источник иницииру-етоперацию перетаскивания OLE c автоматическим режимом перетаскивания (свойство OLEDragMode = vbOLEDragAutomatic).

Параметр данные определяет объект DataObject с перемещаемыми или копируемы-миданными OLE или форматы данных, которые будут предоставлены источни-ком позднее.

Параметр возможные-действия определяет операции перетаскивания, разрешенные для источника данной операции. Он может принимать одно из следующих значений: vbDropEffectNone, vbDropEffectCopy или vbDropEffectMove.

Событие OLEDragOver()

Событие происходит при перемещении указателя мыши над контейнером OLE во время операции перетаскивания OLE. По значениям параметров события можно определить, как действовать дальше. Процедура события имеет следующий синтаксис:

Private Sub объект_OLEDragOver(данные As DataObject, действие As Long, _

кнопки As Integer, клавиши As Integer,

x As Single, у As Single, состояние As Integer)

Первые шесть параметров эквивалентны параметрам события OLEDragDrop, рассмотренным выше. Дополнительный параметр состояние определяет состояние перетаскиваемого объекта по отношению к приемнику события и принимает те же значения, что и для рассмотренного ранее события DragOver.

Событие OLESetData()

Событие OLESetData происходит в тот момент, когда компонент-приемник вызывает метод GetData для объекта DataObject источника. Процедура события имеет следующий синтаксис:

Private Sub oбъект_OLESetData(данные As DataObject,

формат-данных As Integer)

Процедура события имеет два параметра. Параметр данные определяет объект DataObject, содержащий необходимые данные. Параметр формат-данных описывает формат данных, которые хранятся в параметре данные.

Событие OLEGiveFeedback()

Событие OLEGiveFeedback происходит после каждого события OLEDragOver. Оно предназначено в первую очередь для создания визуальных признаков, которые показывают, какие действия разрешены для перетаскиваемых данных. Например, в процедуру этого события можно вставить код для изменения перетаскиваемого значка или обновления панели строки состояния.

Дата добавления: 2015-07-20