Tutorial VB6 Code Bank: Controls

"ojo Rumongso Iso"
tapi
"isoho Seng Sumongso
Controls 1

AutoComplete Combo box
Public Function AutoCompleteCombo(Combo1 As ComboBox, KeyAscii As Integer)
'Code to Auto complete combo box
'Call this function as:
'Call AutoCompleteCombo(ComboBoxName,Keyascii)
Dim lCnt As Long
Dim lMax As Long
Dim sComboItem As String
Dim sComboText As String
Dim sText As String
Dim miSelStart As Integer
miSelStart = Combo1.SelStart
If KeyAscii = 13 Or KeyAscii = 27 Then Exit Function
With Combo1
lMax = .ListCount - 1
sComboText = .Text
If KeyAscii = 8 Then
If Len(Combo1.Text) = 1 Or Len(Combo1.Text) = 0 Then
Combo1.Text = ""
miSelStart = 0
Exit Function
ElseIf Len(Combo1.Text) - (Len(Combo1.Text) - miSelStart) = 1 Then
Combo1.Text = ""
miSelStart = 0
Exit Function
End If
Combo1.Text = Left(sComboText, miSelStart - 1)
sText = Left(sComboText, miSelStart - 1)
Else
sText = Left(sComboText, miSelStart) & Chr(KeyAscii)
End If
KeyAscii = 0
For lCnt = 0 To lMax
sComboItem = .List(lCnt)
If UCase(sText) = UCase(Left(sComboItem, Len(sText))) Then
.Text = sComboItem
.SelStart = Len(sText)
.SelLength = Len(sComboItem) - (Len(sText))
Exit For
Else
.Text = sText
.SelStart = Len(.Text)
End If
Next
End With
End Function