Menghapus duplikat data di listbox

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

Alfa Adhitya Member since December 18, 2019

Computer science education cannot make anybody an expert programmer any more than studying brushes and pigment can make somebody an expert painter – Eric S