TextBox’a Göre Listbox İçinde Arama Yapmak (Searchable Listbox)


Private Sub TextBox1_Change()

Dim strText As String
Dim i As Long

Me.TextBox1.Text = UCase(Me.TextBox1.Text)

strText = Me.TextBox1.Text

With Me.ListBox1
For i = 0 To .ListCount - 1
If UCase(Left$(.List(i), Len(strText))) = strText Then Exit For
Next
If i = .ListCount Then
.ListIndex = -1
Else
.ListIndex = i
End If
End With

End Sub

Listbox’ın içinde binlerce veri olabilir. Bu durumda scrollbar’ı aşağı yukarı kaydırarak Listbox içinde arama yapmak bir hayli zahmetli olacaktır. Yukarıda ki kodları incelerseniz, bu zahmetten sizi kurtaracak bir yöntem öğrenmiş olacaksınız. Textbox nesnesi içine girdiğiniz değerlere göre Listbox içinde arama yapar.

Paylaşmayı unutmayın!
0 0 votes
Article Rating
Subscribe
Bildir
guest
0 Yorum
Inline Feedbacks
View all comments