Основы офисного программирования и язык VBA


Перемещение объектов. Как реализовать технику DragAndDrop - часть 5


Вначале, мы не донесли выбранный нами цвет до окна ввода, отпустив левую клавишу мыши на дороге к нему. Вот как выглядело сообщение, полученное нами:

Сообщение о потере объекта при перетаскивании

Рис. 13.7.  Сообщение о потере объекта при перетаскивании

Затем повторно выбранный нами зеленый цвет был успешно перетащен в окно "Любимый цвет". Приведем отладочную печать этих двух экспериментов:

MouseMove Effect = 0 MouseMove DragOver DragOver DragOver DragPaste Effect = 1

Первые две строчки связаны с неудачной попыткой переноса, когда эффект был нулевым. Следующие строки описывают успешный эксперимент. Заметьте, что между печатью, информирующей о начале работы обработчика MouseMove и его заключительной печатью об успешном эффекте, вклинились сообщения, поступающие от обработчиков событий DragOver и DropOrPaste. Заметьте, я оставил только три сообщения от обработчика DragOver, реально их было 25. На этом описание примера заканчивается, но разговор о событиях еще предстоит.




Начало  Назад  Вперед