Auto Complete combo Box（VB.NET Source Use API）

Dim lngSelectedLength As Long

Dim lngMatchLength As Long

Dim strCurrentText As String

Dim strSearchText As string

Dim sTypedText As String Const CB_LOCKED = &H255

Try

With (comboObj)

If .Text = Nothing Then

Exit Function

End If

Call LockWindow(.Handle)

If ((InStr(1, .Text, .Tag, vbTextCompare) <> 0 And Len(.Tag) = Len(.Text) - 1) Or (Left(.Text, 1) <> Left(.Tag, 1) And .Tag <> Nothing)) And .Tag <> CStr(CB_LOCKED) Then

strSearchText = .Text

lngSelectedLength = Len(strSearchText)

lngItemNum = .FindString(strSearchText)

ComboAutoComplete = Not (lngItemNum = -1)

If ComboAutoComplete Then

lngMatchLength = Len(.Items.Item(lngItemNum)) - lngSelectedLength .Tag = CB_LOCKED

sTypedText = strSearchText

.Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength)