Drag dan Drop ini merupakan fitur luar biasa untuk menambahkan ke aplikasi kamu ketika kamu mencoba untuk membuat antarmuka licin dan intuitif bagi pengguna akhir.
Hal ini juga menambah faktor "wow" yang mengesankan orang-orang ketika mereka pertama kali mulai menggunakan aplikasi. Manfaat besar lainnya menambahkan fungsionalitas drag and drop ke aplikasi kamu adalah bahwa sangat nyaman bagi pengguna.
Dalam kehidupan nyata jika saya ingin pindah selembar kertas dari satu tumpukan ke yang lain Saya hanya mengambilnya, memindahkannya, dan menempatkannya di tumpukan baru. Ini adalah sikap yang sama persis aku pergi dengan Drag dan Drop.
Untuk menggunakannya, tambahkan sebuah kontrol listbox untuk membentuk dan set properti DragMode ke Otomatis. Pergi ke jendela kode dan menambahkan kode
listing code:
Private Sub Form_Load()
'a listbox control in the form and set its DragMode property to Automatic
List1.DragMode = vbAutomatic
List1.OLEDragMode = vbAutomatic
List1.OLEDropMode = vbAutomatic
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 ItemCount As Integer
Dim I As Integer
On Error Resume Next
ItemCount = Data.Files.Count
For I = 1 To ItemCount
List1.AddItem Data.Files(I)
Next
If Err Then Err.Clear
End Sub
Selamat Mencoba visual basic drag dan drop list box
Jika kalian suka dan bermanfaat dengan artikel visual basic drag dan drop list box tunjukan apresiasi kalian dengan membantu penyebaran link ini dengan mengklik tombol sosial network yang kalian sukai. Terima Kasih.
