[aghamali]

با سلام

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

لطفا کمک

[Amin_Mansouri]

درود

کد:

   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