• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This code enables computer type ahead when you type in a combo box.

This code enables computer type ahead when you type in a combo box.

This code enables computer type ahead when you type in a combo box.

Rate This code enables computer type ahead when you type in a combo box.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  Dim i As Integer, iPos As Integer
  If ctlCombo.Text > cSpace0 Then
    For i = 0 To ctlCombo.ListCount - 1
      If InStr(LCase(ctlCombo.List(i)), LCase(ctlCombo.Text)) = 1 Then
        iPos = Len(ctlCombo.Text)
        ctlCombo.Text = ctlCombo.List(i)
        If (Len(ctlCombo.Text) - iPos) > 0 Then
          ctlCombo.SelStart = iPos
          ctlCombo.SelLength = Len(ctlCombo.Text) - iPos
        End If
        Exit For
      End If
    Next
  End If
End Sub