Drag And Drop File ke listbox

Tutorial ini menunjukkan bagaimana cara ketika Anda men-drag file dari Windows Explorer kemudian men-drop-nya di listbox .

buat Form baru dengan sebuah kontrol Listbox (OLEDropMode=Manual) didalamnya.

Gimana caranya ???  

Sobat semua hanya tinggal tuliskan kode berikut ini di aplikasi yang sobat buat .

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

For i = 1 To Data.Files.Count
     List1.AddItem Data.Files(i)
Next i

End Sub

 
Sekarang coba Sobat men-drag beberapa file yang ada di Windows Explorer, kemudian drag di atas kontrol ListBox aplikasi Anda.