کد ساده جستجو

[yashar_2006]

با درود

یه کد ساده میخوام
یه برنامه داریم یک تکست باکس داره یک لیست باکس
داخل لیست باکس یکسری نام هست
حالا میخواهیم با وارد کردن یک نام در تکست باکس ، نام مورد نظر رو از لیست باکس پیدا کنه
به زبون ساده میشه جستجو در لیست باکس

لطفا کمک

[gorg313]

سلام
کاش قبل ایجاد تایپیک یه جستجو میزدی
یه کامند یه تکست باکس و یه لیست باکس درست کن بدون تغییر نام واسه لیستت چند تا کلمه درج کن بعد کد پایین را درون کامند کپی کن

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 "جستجوی موفق" & vbCr & "گزینه : " & i + 1, vbInformation + vbOKOnly, "پیدا شد"
Exit Sub
End If
Next i
MsgBox "خطا یافت نشد ", vbExclamation + vbOKOnly, "خطا"
End Sub