Automatikus Drag & Drop
Ahhoz, hogy egy kontrolt az ablak keretein belül vonszoljon az adott kontrol DragMode tulajdonságának értéket 1 – (Automatic)-ra kell állítani.
Vegyünk fel a formunkra egy Image kontrolt, majd állítsuk be a kontrol képét a egy ikonra a kontrol Picture tulajdonságánál.
Abban a pillanatban, amikor a felhasználó a futás közben elmozdítja a kontrolt, megjelenik a kontrolt határoló szürke vonal.
Ha most futtatjuk az alkalmazást, akkor a kontrol vonszolását követően felengedve az egérgombot minden változatlan maradna.
Drag & Drop esemény kezelése
Amikor a felhasználó felengedi az egérgombot a kontrol vonszolása közben, akkor a programban Drag & Drop esemény keletkezik. A Drag & Drop technika működésénél fel kell használni az egér aktuális X, Y koordinátáit. Ilyenkor a Form_DragDrop eseményében az alábbi kód szerepel:
Private Sub Form_DragDrop (Source As Control, X As Single, Y As Single)
Source.Move X, Y
End Sub
A kontrol most már elmozgatható. Az X, Y koordináták az adott kontrol helyére utalnak.