Cara menDrag and Drop File ke ListBox di Visual Basic 6.0 ( Source Codes )

Cara  membuat Drag n Drop file ke listbox di VB 6.0

Tutorial ini menunjukkan bagaimana cara ketika Anda men-drag file dari Windows Explorer kemudian men-drop-nya di aplikasi Anda, maka file tersebut akan dibuka atau dijalankan oleh aplikasi Anda.
langsung saja saya akan memberi cara untuk File Drag Drop

Pertama-tama

Pada kotak dialog Properties ListBox atur OLEDropMode  dan OLEDragMode ke Manual

Seperti pada gambar dibawah ini :

Setelah Properties selesai diatur,selanjutnya masukan Koding berikut :

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

On Error Resume Next

    List1.AddItem (Data.Files(1))

   Exit Sub

End Sub

Selesai..

Untuk hasil maksimal,tergantung pada kreatifitas anda sendiri..