Реализация функции OLE Drag-and-Drop

В этом упражнении Вы средствами Visual Basic создадите приложение, которое поддерживает механизм перетаскивания объектов.

> Добавление средств поддержки перетаскивания

1. Запустите Visual Basic и создайте новый проект типа Standard EXE.
2. Поместите на форму два элемента управления-рисунка.
3. Назначьте свойствам OLEDragMode и OLEDropMode обоих элементов управления значение Automatic.
4. Добавьте растровое изображение в элемент управления Picture1.
5. Запустите приложение и перетащите изображение из Picturel в Picture2.

> Поддержка перетаскивания объектов из одного приложения в другое

1. Остановите приложение и добавьте в форму текстовое поле.
2. Присвойте свойству Multiline поля Text1 значение True.
3. Очистите текстовое поле.
4. Присвойте свойствам OLEDragMode и OLEDropMode текстового поля значе ние Automatic.




5. Запустите приложение.
6. Запустите Microsoft Word и создайте новый документ.
7. Расположите окна так, чтобы Вы могли видеть их оба.
8. Наберите в документе Word строку Привет!.
9. Выделите текст и перетащите его в текстовое поле формы Visual Basic.
10. Перетащите изображение из элемента управления Picturel в документ Word.
11. Остановите приложение Visual Basic.
12. Закройте Word и Visual Basic.