Bagaimana jika ada data yang sama dalam listbox , mungkin jika hanya 1 atau 2 data yang sama kita bisa menghapusnya satu per satu , nah bagaimana jika ada 100 atau 1000, tentu saja akan membuang waktu jika harus menghapusnya satu persatu. Oleh karena itu, pada tutorial kali ini kita akan membuat potongan kode sederhana untuk menghapus duplikat data di Listbox Visual Basic.
Oleh karena itu saya akan membahas bagaimana cara menghapus file yang sama dalam sebuah listbox , atau bisa dikatakan kita akan menghapus duplikat file.
Public Sub HapusDuplicate(list1 As ListBox)
Dim I As Integer
Dim J As Integer
With list1
For I = 0 To .ListCount - 1
For J = .ListCount To (I + 1) Step -1
If .List(J) = .List(I) Then
.RemoveItem J
End If
Next
Next
End With
End Sub
Misalkan kita akan menghapus file yang sama dalam list1 . kita tinggal menuliskan HapusDuplicate list1
Contoh
Perintah hapus di tuliskan di command button dengan property nama “HapusDuplikat”
Private Sub HapusDuplikat_Click()
HapusDuplicate list1
End Sub
No Comments
Leave a comment Cancel