PDA

View Full Version : پیدا کردن آیتم در لیست باکس



Rasul75
پنج شنبه 30 اردیبهشت 1395, 21:13 عصر
سلام دوستان داخل برنامه یه لیست باکس دارم و یه دکمه و یه تکس باکس
داخل لیست چندین اسم داریم که اگر من داخل تکس باکس یک حرف وارد کردم داخل لیست بگرده و اون حرف داخل هر اسمی بود ( چه اولش، چه وسطش و چه آخرش) رو نشون بده
ضمنا هر بار که دکمه رو فشار دادم آیتم به آیتم جلو بره مثلا :
داخل لیست ali, reza, mohammad, sadegh, akbar داریم اگر من حرف a رو نوشتم و رو دکمه زدم بگرده اسم هایی که حرف a داخلشون هست رو نشون بده ولی درصورتی که هر بار دکمه رو فشار دادم یکی یکی بره جلو تا به آخر که رسید دوباره برگرده از اول
اگه زود جوابمو بدید که دمتون گرم

Fery666
دوشنبه 03 خرداد 1395, 23:51 عصر
اینو ببینید بدردتون میخوره :




Private Sub Form_Load()
List1.AddItem "Ali"
List1.AddItem "Abbas"
List1.AddItem "Saeed"
List1.AddItem "mohamad"
List1.AddItem "hashem"
List1.AddItem "Farzam"
List1.AddItem "Kamran"

End Sub

Private Sub Text1_Change()
List2.Clear

For i = 0 To List1.ListCount - 1

List1.ListIndex = i

If InStr(1, LCase(List1.Text), Text1.Text) <> 0 Then
List2.AddItem (List1.Text)
End If

Next i
End Sub






شما باید لیست اسامی رو در یک جایی نمایش بدین تا بشه سرچ کرد .
بخاطر همین من دوتا لیست باکس گرفتم ، که توی لیست اولی اسامی و در لیست دومی موارد جستجو را نمایش میدهد .

Rasul75
سه شنبه 04 خرداد 1395, 19:13 عصر
دمت گرم کده عالیه ولی این فرایند رو تو یک لیست باکس نمیشه انجام داد؟

Fery666
سه شنبه 04 خرداد 1395, 23:48 عصر
شما میتونین این کارو انجام بدین ، فقط لیست 1 رو مخفی کنید . چون شما از دیتابیس استفاده نمیکنید پس اسامی باید در یه لیستی باشه تا بشه سرچ کرد .

از این میتونی استفاده کنی :




Private Sub Form_Load()
List1.AddItem "Ali"
List1.AddItem "Abbas"
List1.AddItem "Saeed"
List1.AddItem "mohamad"
List1.AddItem "hashem"
List1.AddItem "Farzam"
List1.AddItem "Kamran"

For j = 0 To List1.ListCount - 1
List1.ListIndex = j
List2.AddItem List1.Text
Next j
List1.ListIndex = 0
End Sub

Private Sub Text1_Change()
List2.Clear
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If InStr(1, LCase(List1.Text), Text1.Text) <> 0 Then
List2.AddItem (List1.Text)
End If
Next i
End Sub