Архитектура Microsoft Windows для разработчиков
       

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


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

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

  1. Запустите Visual Basic и создайте новый проект типа Standard EXE.

  2. Поместите на форму два элемента управления-рисунка.

  3. Назначьте свойствам OLEDragMode и OLEDropMode обоих элементов управления значение Automatic.

  4. Добавьте растровое изображение в элемент управления Picture1.

  5. Запустите приложение и перетащите изображение из Picturel в Picture2.

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

    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.



      13. Содержание раздела