Option Explicit

'***************************************************************************************
' Для комбо-бокса
Global Const LB_FINDSTRING = &H18F
Global Const CB_ERR = (-1)
Global Const CB_FINDSTRING = &H14C

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
'
'************************************************************************************



'****************************************************************************************************
'Purpose : Auto completes a combo box during the KeyPress event, based on the text typed in by the user.
'Inputs : cboComplete The combo box to auto complete (completes the current text based on
' the listitems in the combo).
' KeyAscii The Ascii value of the key pressed (as supplied by the keypress event)
' [bLimitToList] If True, will only allow the user to enter values which are in the combos list.
'Outputs : Returns the KeyAscii value or zero if bLimitToList = True and the user types an invalid character.
'Author : Andrew Baker
'Date : 25/03/2001
'Notes : Call the routine from the _KeyPress event of the combo.
' The combo must be of a vbComboDropDown style, eg. KeyAscii = ComboAutoComplete(Combo1, KeyAscii, False)
'
'
' Данную функцию чуть чуть подправил, чтобы она работала также и с кириллицей (ulis)
'
'****************************************************************************************************


Public Function ComboAutoComplete(ByRef cboComplete As ComboBox, ByVal KeyAscii As Integer, Optional ByVal bLimitToList As Boolean = False) As Long

Dim lRetVal As Long
Dim sSearch As String

On Error GoTo ErrFailed

If cboComplete.Style <> vbComboDropdown Then
ComboAutoComplete = KeyAscii
Exit Function
End If

If KeyAscii = 8 Then

If cboComplete.SelStart <= 1 Then
cboComplete.Text = ""
ComboAutoComplete = 0
Exit Function
End If

If cboComplete.SelLength = 0 Then
sSearch = UCase$(Left$(cboComplete.Text, Len(cboComplete) - 1))
Else
sSearch = Left$(cboComplete.Text, cboComplete.SelStart - 1)
End If

ElseIf KeyAscii < 32 Or KeyAscii > 255 Then
Exit Function
Else
If cboComplete.SelLength = 0 Then
sSearch = UCase$(cboComplete.Text & Chr$(KeyAscii))
Else
sSearch = Left$(cboComplete.Text, cboComplete.SelStart) & Chr$(KeyAscii)
End If
End If

lRetVal = SendMessage(cboComplete.hwnd, CB_FINDSTRING, -1, ByVal sSearch)

If lRetVal = CB_ERR Then
If bLimitToList = True Then
ComboAutoComplete = 0
Else
ComboAutoComplete = KeyAscii
End If
Else
cboComplete.ListIndex = lRetVal
cboComplete.SelStart = Len(sSearch)
cboComplete.SelLength = Len(cboComplete.Text) - cboComplete.SelStart
ComboAutoComplete = 0
End If

Exit Function

ErrFailed:
ComboAutoComplete = KeyAscii
End Function