Drag/Drop With FileListBox

[mikegt]

Anyone know how to implement drag/drop between two FileListBox's ????

OleDragDrop??? How???

[Dim]

'From 1 to 2
Dim StartDrag As Boolean
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    StartDrag = True
    strtemp = List1.Text
End Sub
Private Sub List2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If StartDrag = True Then
        List2.AddItem List1.Text
        List1.RemoveItem List1.ListIndex
    End If
    StartDrag = False
End Sub

That will allow you to more items from List1 to List2. Simply modify for further use.


Gl,
D!m

[mikegt]

Thanks Dim.... This works... I was actually trying to use the file control to try drag/drop with.