سوال در مورد جستجو در combo box

[pascal]

با سلام خدمت دوستان عزيز
چطوري مي شه درون combo box با نوشتن اولين حرف، گزينه اي كه اولين حرفش با حرف نوشته شده شروع مي شود درون combobox نشون داده بشه بعد به همين ترتيب با نوشتن حرف دوم و... ممنون مي شم اگه كمكم كنيد

[alishahbazi]

یک کم میشود بیش تر توضیح بدهید من سورس Autocomplete Address bar ویندوز را دارم اگر خواستی بگو برایت آپلود کنم . :) :) :) :) :) :) :)


بیایید افتخار ایران باشیم و به ایرانی بودن خود نیز افتخار کنیم

[Romina2006]

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Private Const CB_FINDSTRING = &H14C

Private Sub Combo1_Change()
Dim iStart As Integer
Dim sString As String
Static iLeftOff As Integer

iStart = 1
iStart = Combo1.SelStart

If iLeftOff <> 0 Then
Combo1.SelStart = iLeftOff
iStart = iLeftOff
End If

sString = CStr(Left(Combo1.Text, iStart))
Combo1.ListIndex = SendMessage(Combo1.hwnd, _
CB_FINDSTRING, -1, ByVal CStr(Left( _
Combo1.Text, iStart)))

If Combo1.ListIndex = -1 Then
iLeftOff = Len(sString)
Combo1.Text = sString
End If

Combo1.SelStart = iStart
iLeftOff = 0
End Sub