Drag/drop files from explorer to any textbox, combo or listbox...

01-08-2003, 04:27 AM

Merrion

Ultimate Contributor

* Guru *

Join Date: Sep 2001

Location: Dublin, Ireland

Posts: 1,828

Drag/drop files from explorer to any textbox, combo or listbox...

In order to fill a texbox, combo box or listbox with files dropped from explorer you need to subclass it and handle the WM_DROPFILES message. The attached module can be dropped in to any project to enable you to have drag-drop files from explorer more easily.

usage:

Code:

Private Sub Form_Load()

Call DragDropFiles.EnableDragDrop(Me.List1)

End Sub

Attached Files

dragdropfiles.bas (5.6 KB, 214 views)

01-08-2003, 05:13 AM

Banjo

Hell's Angel

Retired Moderator
* Guru *

Join Date: Jul 2001

Location: Yorkshire, UK

Posts: 10,394

Would it not be easier to just use the OLEDragDrop event like this:

Code:

Private Sub Form_Load()
    List1.OLEDropMode = vbOLEDropManual
End Sub

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i As Long
        
    For i = 1 To Data.Files.Count
        List1.AddItem Data.Files(i)
    Next i
End Sub

__________________
A wise one man once said "what you talking about dog breath"

01-08-2003, 05:18 AM

Merrion

Ultimate Contributor

* Guru *

Join Date: Sep 2001

Location: Dublin, Ireland

Posts: 1,828

Quote:

Would it not be easier to just use the OLEDragDrop event..

Yup - it probably would....

__________________

Printing - a .NET developer's guide
(Free eBook)
* *
"Passionate about printing"