Рассмотрим процесс перетаскивания OLE на следующем примере:

1. Создайте новый проект командой File > New Project. Выберите в диалоговом окне New Project значок Standard EXE и нажмите кнопку ОК.

2. Задайте свойству Name формы Form1 значение frmMain, а свойству Caption - значение Перетаскивание OLE.

3. Поместите на форму два текстовых поля. Разместите их рядом друг с другом так, чтобы их высота примерно совпадала с высотой формы.

4. Задайте свойству Name левого текстового поля значение

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

Параметр данные

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

Private Sub объект_OLEDragDrор(данные As DataObject, действие As Long, кнопки As Integer, клавиши As Integer, x As Single, у As Single)

У этой процедуры много параметров,

В Windows 95 появился новый, более универсальный, тип перетаскивания — так называемое «перетаскивание OLE» (OLE drag-and-drop). Сокращение OLE означает Object Linking and Embedding, то есть «связывание и внедрение объектов». Этот тип перетаскивания позволяет перемещать текст, файлы и объекты между элементами, которые выполняют функции контейнеров OLE, — списками, текстовыми и графическими полями. В окне программы Visual Basic предусмотрены некоторые возможности, построенные