Visual Basic Programming Code Examples Visual Basic > Applications VBA Code Examples Use drag and drop in a application Use drag and drop in a application 'Drag and Drop within a application Suppose you have a listbox with some elements and want to drag&drop a selected one into a textbox. I know there are easier ways to do this but it's just for making the point. Make a form with a textbox (text1) and a listbox (list1). Fill the listbox with some items... Make a label (label1). Set it invisible = False Put the next code at the appropiate places: Sub List1_MouseDown (Button as Integer, Shift as Integer, X as Single, Y as Single) Dim DY DY = TextHeight("A") Label1.Move list1.Left, list1.Top + Y - DY / 2, list1.Width, DY Label1.Drag End Sub Sub List1_DragOver (Source as Control, X as Single, Y as Single, state as Integer) If state = 0 Then Source.MousePointer = 12 If state = 1 Then Source.MousePointer = 0 End Sub Sub Form_DragOver (Source as Control, X as Single, Y as Single, state as Integer) If state = 0 Then Source.MousePointer = 12 If state = 1 Then Source.MousePointer = 0 End Sub Sub Text1_DragDrop (Index as Integer, Source as Control, X as Single, Y as Single) text1.text = list1 End Sub
