textbox’a girilen harfe göre arama işlemi Vb.Net

texbox’a girilen harfe göre arama işlemi Vb.Net  

[code lang=”vbnet”]
 

Public Class Form1
 

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 

ListBox2.Items.Clear()
 

For i = 0 To ListBox1.Items.Count – 1
 

If TextBox1.Text = Mid(ListBox1.Items(i), 1, TextBox1.Text.Length) Then
 

ListBox2.Items.Add(ListBox1.Items(i))
 

End If
 

Next
 

End Sub
 

End Class
 

[/code]