Синтаксис
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.