نحوه جستجو در ComboBox

[mohsen_iceman2000]

سلام من یه کمبو باکس دارم که اطلاعاتش رو از sql می خونه

میخ وام وقتی کاربر روش داره می نویسه طبق اون اطلاعاتی که داخلشه جستجو بشه و بیاره ولی مثلا اگر داخلش
محسن
حسن
حسین
هستش
وقتی کاربر حرف "م" رو زد محسن بیاد ، بر اساس اولین حروف به ترتیب جستجو کنه


مرسی

[ho3ein.3ven]

سلام. اینم کدی که می خواید
Private Sub Combo1_Change()
For i = 1 To Combo1.ListCount
If Combo1.Text = Left(Combo1.List(i), Len(Combo1.Text)) Then
Combo1.Text = Combo1.List(i)
Exit For
End If
Next
End Sub

[mohsen_iceman2000]

ممنون ، مشکلم درست شد ولی یه سوال الان هرچی میزنم مثلا گه تو لیستم محسن ، حسن ، حسین باشه
حرف م میزنم محسن میاد ولی میزنم "مح" نمیاد باید چی کار کنم ؟

[ho3ein.3ven]

خب اول اینکه من یه جای کدش رو اشتباه نوشته بودم به صورت زیر تغییر بده.
Private Sub Combo1_Change()
For i = 0 To Combo1.ListCount
If Combo1.Text = Left(Combo1.List(i), Len(Combo1.Text)) Then
Combo1.Text = Combo1.List(i)
Exit For
End If
Next
End Sub

بعد من تست کردم هیچ مشکلی نداشت. وقتی که داخلش "moh" رو تایپ می کنی "mohsen" میاد