Menghapus File yang sama di listbox

alfa6661
- December 31, 2011
0 (0 votes)
Rate :
Cara menghapus duplikat data pada listbox visual basic 6

Bagaimana jika ada file yang sama dalam listbox , mungkin jika hanya 1 atau 2 file yang sama kita bisa menghapusnya satu per satu , nah bagaimana jika ada 100 atau 1000 .

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

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

– Eric S. Raymond

Have a better explanation?

If you have comments about this post. Please write your comments below

No comments associated with this article