Hapus Data Sama Dalam Listbox VB 6.0
Hapus Data Sama Dalam Listbox VB 6.0 kali ini blogger sragen bahas, karena biasanya para penyuka VB 6 sangat memerlukannya, hal ini terutama untuk anda yang sering berurusan dengan list data dalam listbox. Kadang kala dalam listbox terdapat data yang sama yang tidak atau memang sengaja di masukan dan malah kadang kala bisa membuat data menjadi error dan bertumpuk. Untuk mengakalinya kita bisa menggunakan metode looping dan kemudian menghapusnya jika ada yang sama. Source code Hapus Data Sama Dalam Listbox VB 6.0
Source Code Hapus Data Sama Dalam Listbox VB 6.0
Ini adalah source code sub untuk menjalankan aksi guna menghapus data yang sama pada listbox.
- Public Sub CekKeyDobel(ls As ListBox)
- With ls
- 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
Untuk pemanggilan sub tersebut sangatlah mudah. Misal yang akan kita cek sebuah objec listbox dengan nama List1. Nah pemanggilan untuk menghapus data sama dalam List1 sebagai berikut
- CekKeyDobel List1
.png){kind=small}
