• Home
 · 
• Windows API Call/Explanation
 · 
• Auto-searching by entering text in a combo box

Auto-searching by entering text in a combo box

Auto-searching by entering text in a combo box

API Declarations


(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Public Const CB_FINDSTRING = &H14C



Rate Auto-searching by entering text in a combo box

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

  
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