Zdarzenie DragDrop

Zdarzenie DragDrop jest generowane z chwilą zakończenia przeciągania obiektu lub też po użyciu metody Drag z argumentem Czynność ustawionym na 2 (vbEndDrag).

Składnia:

Private Sub Form_DragDrop(Źródło As Control, X As Single, Y As Single)
Private Sub MDIForm_DragDrop(Żródło As Control, X As Single, Y As Single)
Private Sub obiekt_DragDrop([Indeks As Integer,] Źródło As Control, X As Single, Y As Single)

Składnia zdarzenia DragDrop składa się z następujących części:

obiekt	obiekt, który wykorzystuje zdarzenie DragDrop, dostępny na liście
Indeks	Argument określający element sterujący w tablicy elementów sterujących.
Żrdóło	Argument określający przeciągany element sterujący. Można włączyć właściwości i metody do procedury tego zdarzenia z tym argumentem - na przykład: Źródło.Visible=0.
X, Y	Argumenty określające współrzędne kursora myszy w chwili zakończenia przeciągania. Te współrzędne są zawsze odpowiednie do układu współrzędynych obiektu (ustawionego przez właściwości ScaleHeight, ScaleWidth, ScaleLeft i ScaleTop).

Zdarzenie DragDrop używane jest, aby sprawdzać co się dzieje, kiedy przeciąganie obiektu się zakończy. Na przykład, jeżeli przesunięty zostanie obiekt na nową pozycję lub skopiowany plik z jednej lokalizacji na drugą.

Kontrolki wielokrotne (multiply controls) mogą być potencjalnie używane w argumencie Źródło, jeżeli:

użyte zostanie słowo TypeOf z wyrażeniem If do określenia typu kontrloki używanej jako Źródło,
użyta zostanie właściwość Tag do zidentyfikowania kontrolki a potem użyte będzie zdarzenie DragDrop.

Aby określić sposób w jaki przeciąganie zostanie zainicjowane, należy użyć właściwości DragMode i metody Drag. Kiedy przeciąganie zostanie rozpoczęte, można wstrzymać zdarzenia, któe mają pierwszeństwo przed zdarzeniem DragDrop, z pomocą zdarzenia DragOver.

Lista obiektów wykorzystujących zdarzenie DragDrop:
Animation
CheckBox
ComboBox
CommandButton
Data
DBCombo
DBGrid
DBList
DirListBox
DriveListBox
FileListBox
Form
Frame
HScrollBar
Image
Label
ListBox
MDIForm
OLEContainer
OptionButton
PictureBox
ProgressBar
PropertyPage
Slider
SSTab
StatusBar
TabStrip
TextBox
ToolBar
UpDown
UserControl
UserDocument

na górę strony...