Mencari isi dari Listview

Pada Tutorial VB kali ini, saya akan membahas cara pencarian di listview. dengan metode ini kita dapat mencari isi dari listview degan cara memasukan kata kunci pada sebuah textbox yang kemuadian akan mencari kata tersebut pada saat isi dari textbox berubah.
tidak usah panjang lebar langsung pada intinya.
yang dibutuhkan
1. Tambahkan Component Microsoft windows Common Controls 6.0 (terserah mau yang 6.0 pa yang 5.0)
2. Tambahkan 1 buah TextBox Pada Form
Sintak Program

Private Sub Text1_Change()

Dim li As ComctlLib.ListItem

For Each li In LV1.ListItems
If LCase(Left(li.Text, Len(Text1.Text))) Like LCase(Text1.Text) Then li.Selected = True: Exit Sub
Next li

LV1.ListItems.Item(1).Selected = True
End Sub


Sekian Tutorial VB kali ini dan semoga bermanfaat....

4 comments

wah ko ndak bisa ya ?????

Reply

Private Sub txtSearch_Change()

Dim li As ComctlLib.ListItem

For Each li In LV1.ListItems
If LCase(Left(li.Text, Len(Text1.Text))) Like LCase(Text1.Text) Then li.Selected = True: Exit Sub
Next li

LV1.ListItems.Item(1).Selected = True
End Sub

Reply

Post a Comment