Parsi Coders

با سلام

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

لطفا کمک

درود

کد:
   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

aghamali

Amin_Mansouri