با سلام!
دوست عزيز از اين كد تو دكمه استفاده كنيد:
من به جاي عبارت SearchF.ListBox1.Items عبارت ListBox1.Items.Add رو استفاده كردم چون نگفته بوديد اين SearchF چيه.کد:If SchText.Text = "" Then Exit Sub Dim strinx As Integer SchText.Text = LCase(SchText.Text) For Each i As String In Code i = LCase(i) If i.Contains(SchText.Text) Then strinx = Code.IndexOf(SchText.Text, strinx) + 1 ListBox1.Items.Add(CStr(strinx) + " - " + i) End If Next
موفق باشيد
آرمين
Bookmarks