+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: کد ساده جستجو (/showthread.php?tid=3832)
کد ساده جستجو - aghamali - 08-30-2015
با سلام
یه کد ساده میخوام
یه برنامه داریم یک تکست باکس داره یک لیست باکس
داخل لسیت باکس یکسری نام هست
حالا میخواهیم با وارد کردن یک نام در تکست باکس ، نام مورد نظر رو از لیست باکس پیدا کنه
به زبون ساده میشه جستجو در لیست باکس
لطفا کمک
RE: کد ساده جستجو - Amin_Mansouri - 09-04-2015
درود
کد:
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.List(i) = Text1.Text Then
MsgBox "Your item has been found." & i, vbInformation + vbOKOnly, "Found"
Exit Sub
End If
Next i
MsgBox "Not found", vbExclamation + vbOKOnly, "Not found"
End Sub