Membuka File dengan DragDrop

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.

Buat Form baru dengan sebuah kontrol TextBox (OLEDropMode=Manual) didalamnya. Di bagian 'Text1_OLEDragDrop' ketikkan :

Text1.Text = "Anda telah membuka file " & (Data.Files(1))

Sekarang coba Anda men-drag sebuah file yang ada di Windows Explorer, kemudian drag di atas kontrol TextBox aplikasi Anda.

Lalu bagaimana men-drag file yang lebih dari satu, sebagai contoh buat sebuah kontrol ListBox (OLEDropMode=Manual) dan ketikkan kode berikut di bagian 'List1_OLEDragDrop'.

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

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

Jika Anda memerlukan proses filter jenis / ekstensi file, Anda bisa mengkombinasikannya dengan fungsi pemeriksaan ekstensi.