درخواست یه نمونه سرچ د رلیست باکس

[ebeliejinfren]

هر کی یه نمونه از سرچ در لیست باکس داره برام بزاره خیلی ممنون می شم

[vbhamed]

سلام



Dim i%,x$

x = LCase$(txtSearch)

For i = 0 To List1.ListCount - 1

If Instr(LCase$(List1.List(i)), x) > 0 Then

List1.ListIndex = i
Exit For

End if

Next

[Armin060]

كد بالا رو هم ميشه تو دات نت استفاده كرد و هم تو VB6. ولی دات نت نيازی به اين كار نداره. خودش از قبل آماده داره. به صورت زير :
نام ليست باكس.FindString(عبارت مورد جستحو,ايندكس شروع)
مثال :

ListBox1.FinString(strText,0)