DragDrop

Событие происходит при завершении операции drag-and-drop (перетащить и бросить) как следствие перетаскивания элемента управления на объект и отпускания кнопки мыши, или при использовании метода Drag с аргументом action, равным 2 (отпустить).

Синтаксис

Sub Form_DragDrop(source As Control, x As Single, y As Single)
Sub Label1_DragDrop(
source As Control, x As Single, y As Single)
Sub Command1_DragDrop(
source As Control, x As Single, y As Single)
Sub Pic1_DragDrop(
source As Control, x As Single, y As Single)
Sub Text1_DragDrop(
source As Control, x As Single, y As Single)
Sub MText1_DragDrop(
source As Control, x As Single, y As Single)
Sub TextBox1_DragDrop(
source As Control, x As Single, y As Single)
Sub Check1_DragDrop(
source As Control, x As Single, y As Single)
Sub Opt1_DragDrop(
source As Control, x As Single, y As Single)
Sub List1_DragDrop(
source As Control, x As Single, y As Single)
Sub Combo1_DragDrop(
source As Control, x As Single, y As Single)
Sub LCombo1_DragDrop(
source As Control, x As Single, y As Single)
Sub HScroll1_DragDrop(
source As Control, x As Single, y As Single)
Sub VScroll1_DragDrop(
source As Control, x As Single, y As Single)
Sub Img1_DragDrop(
source As Control, x As Single, y As Single)
Sub Frame1_DragDrop(
source As Control, x As Single, y As Single)

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

Часть

Описание

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

Примечания

Используйте процедуру события DragDrop для управления тем, что должно происходить после завершения операции перетаскивания. Например, можно переместить элемент управления источник в новое положение или скопировать файл в новое место.
Если в качестве аргумента source используются несколько элементов управления, то:

Замечание Для уточнения способа, которым началось перетаскивание, используйте значение свойства DragMode и метод Drag. После начала перетаскивания можно обработать событие DragOver, предшествующее событию DragDrop.


Назад