جستجو خطي

[Babak-Magic]

سلام
جستجو خطي در ليست باكس و تكست باكس را ممنون ميشم توضيح و مثالي از ان قرار بدين

[Pr0grammer]

همونطور که از اسمش مشخصه، در این نوع جستجو، داده ها یکی یکی از ابتدا تا انتها بررسی میشن... به این مثال نگاه کن :


Dim StrSearch AS String
Dim i As Integer

StrSeach = InputBox ("Enter Search Key")
For i = 0 to (List1.ListCount -1)
if List1.List(i) = StrSearch then
Msgbox "Found"
Exit Sub
End if
Next
Msgbox "Not Found"