Mencari Teks Tertentu Pada Sekumpulan Item ListBox – Kode VB Net

Contoh berikut ini akan menunjukkan bagaimana melakukan proses mencari item di Kontrol ListBox. Ikuti langkah-langkah pembuatannya berikut ini :

• Buat Project baru dengan 1 Form
• Tambahkan Kontrol ke Form1 : 1 TextBox (TextBox1), 1 ListBox (ListBox1)
• Tulis kode ini di event Form1_Load :

'mengisi item untuk contoh
With ListBox1.Items
.Add("satu")
.Add("dua")
.Add("tiga")
.Add("empat")
.Add("lima")
.Add("enam")
.Add("tujuh")
.Add("delapan")
.Add("sembilan")
.Add("sepuluh")
End With

• Tulis kode ini di event TextBox1_TextChanged :

If TextBox1.Text <> "" Then
Dim i As Integer
i = ListBox1.FindString(TextBox1.Text)

If i > -1 Then
ListBox1.SelectedIndex = i
End If
End If

Jalankan Project, lalu coba ketikkan beberapa teks di TextBox1 untuk mencoba mencari item di ListBox1.