DragOver

Событие происходит во время выполнения операции drag-and-drop (перетащить и бросить). Можно использовать это событие, чтобы следить за тем, как курсор мыши подходит к цели, покидает ее или остается над возможной целью. Объект–
приемник, в котором происходит событие, определяется положением курсора мыши.

Синтаксис

Sub Form_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub Label1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub Command1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub Pic1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub Text1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub MText1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub TextBox1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub Check1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub Opt1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub List1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub Combo1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub LCombo1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub HScroll1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub VScroll1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub Img1_DragOver(source As Control, x As Single, y As Single, state As Integer)
Sub Frame1_DragOver(source As Control, x As Single, y As Single, state As Integer)

Части синтаксической последовательности для события DragDrop приведены в таблице:

Часть	Описание
1	Целое число, однозначно определяющее элемент управления, если он находится в массиве элементов управления
source	Перетаскиваемый элемент управления. К этому аргументу можно добавить свойства и методы в процедуре события — например, Source.Visible = 0.
x, y	Текущие горизонтальная (x) и вертикальная (y) координаты курсора мыши на форме или элементе управления–приемнике. Эти координаты всегда выражаются в единицах системы координат приемника, в соответствии с установленными значениями свойств ScaleHeight, ScaleWidth, ScaleLeft и ScaleTop.
state	Целое число, соответствующее мгновенному состоянию перетаскиваемого элемента управления по отношению к целевой форме или элементу управления: 0 = Вход (элемент управления–источник входит в область цели). 1 = Выход (элемент управления–источник покидает область цели). 2 = Над (элемент управления источник перемещается в пределах области цели из одного положения в другое).

Примечания

Процедура события DragOver используется, чтобы определить, что должно происходить в интервале от начала перетаскивания и до отпускания элемента управления на цель. Например, можно подтверждать правильность выбора цели, подсвечивая ее (установив из программы значения свойства BackColor или ForeColor) или изменяя форму курсора при перетаскивании (установив из программы значение свойства DragIcon или MousePointer).
Аргумент state используется для определения действий в узловых точках перехода. Например, можно подсветить возможную цель, когда установлено значение 0 (вход в диапазон цели) аргумента state и восстановить прежний облик объекта, когда установлено значение 1 (вход в диапазон цели).

В случае, когда объект получил событие DragOver с аргументом state равным 0 (вход):

если элемент-источник будет опущен на объект, последний получит событие DragDrop;
если элемент-источник не будет опущен на объект, этот объект получит еще одно событие DragOver с аргументом state, равным 1 (выход).

Замечание Чтобы уточнить, каким способом было начато перетаскивание, используйте значение свойства DragMode и метод Drag.