Privаte Sub Form_ DragOver (Source as Cotrol, X as Single, Y as Single, State as Integer)

Событие DragOver

End Sub

Source. Move X, Y

Private Sub Form_DragDrop (Source as Control, X as Single, Y as_ Single)

Операции перетягивания (Drag-and-Drop)

Чтобы переместить элемент управления, необходимо, удерживая левую клавишу мыши, переместить ее указатель на ту позицию, куда нужно переместить объект. Перемещение объекта с нажатой кнопкой называется перетягиванием, а процесс отпускания мыши - бросанием.

Элемент управления поддерживают 2 типа переноса, что соответствует двум значениям свойства DragMode. По умолчанию установлено значение, запрещающее перенос. Это называется ручным перетягиванием, и значение DragMode = 0. В случае, если DragMode = 1 - автоматическое перетягивание, это означает, что пользователь может перетягивать ЭУ в проекте. В любом случае элемент управления фактически будет перемещаться только тогда, когда будет написан код, использующий метод Move.

Событие, реагирующее на операции перетягивания, называется DragDrop. Оно свойственно элементу управления или форме.

Пример. Пусть необходимо перетащить командную кнопку на другое место в форме. Установим значение свойства DragMode = 1 (автоматический режим) и запишем код:

(Тип параметра Source – элемент управления, и можно обращаться к его свойствам и методам)

В результате выполнения процедуры элемент управления останется видимым в прежнем положении, а серый контур будет перемещаться вместе с курсором мыши. Нельзя использовать DragDrop, чтобы сделать объект невидимым, в то время как выполняется перенос на требуемое место. Поэтому эта процедура вызывается после того, как пользователь "бросает" объект.

Все объекты Visual Basic, за исключением меню и таймера, обнаруживают, что над ними перетягиваются другие элементы управления. Событие DragOver позволяет отслеживать путь перемещения элемента управления во время операции перетягивания.

Шаблон процедуры:

…

End Sub

Source - имя элемента управления, который будет перемещаться. Процедура обработки события связана с элеменом управления, на котором завершится операция перетягивания.

Параметры X, Y дают текущие значения CurrentX, CurrentY в координатах объекта при перетягивании элемента управления над формой и графическим окном.

Параметр State имеет следующиее значения:

0 - если объект перетаскивается с несвободного места на свободное;

1 - если место броска несвободно;

2 - если объект перетаскивается с одного свободного места на другое свободное (по форме).

Например: перетягиваение значка файла в другой значок; удаление файла в корзину.

Дата добавления: 2014-12-10