جستجو در لیست باکس با وی بی

[P.B.Lue]

چطور میشه یک متن رو توی لیست باکس جستجو کرد ؟

[AbbasVB]

سلام
یه تکس باکس و یک دکمه و یک لیست نیاز داره
امیدوارم به دردت بخوره

Option Explicit

Private Sub cmdSearch_Click()
Dim i As Integer
For i = 0 To List1.ListCount
If txtSearch.Text = List1.List(i) Then
MsgBox "ãæÑÏ íÇÝÊ ÔÏ!"
List1.ListIndex = i
Exit For
End If

Next


End Sub

Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "a"
List1.AddItem "b"

End Sub

[P.B.Lue]

سلام دقیقا برعکس این کدرو نیاز دارم میخاستم اگه متن مورد نظر داخل لیست باکس نبود یک پیغام بده میتونی اینکارو کنی؟

[سید حمید حق پرست]

سلام دقیقا برعکس این کدرو نیاز دارم میخاستم اگه متن مورد نظر داخل لیست باکس نبود یک پیغام بده میتونی اینکارو کنی؟
سلام علیکم
کد کلید رو با کد زیر تغییر بدید :
Private Sub cmdSearch_Click()
Dim i As Integer
For i = 0 To List1.ListCount
If txtSearch.Text = List1.List(i) Then
Exit For
Else
If i = List1.ListCount Then
MsgBox "no"
End If
End If
Next
End Sub
موفق باشید.

یا علی (ع)