Автопоиск в Combo... как установить ItemData?

[Rojohn]

Много раз упомянутый выше автопоиск в ComboBox выводит текст из списка Combo в Combo.text. Но при этом его ListIndex не меняется и остается -1. Как выводить не просто текст, но и его ListIndex?
Процедура автопоиска:

Код: Выделить всё

Public Sub AutoFillCombo(Combo As ComboBox)
  Dim i&, P&, vTxt As String
 
  valComboStr = False
  i = SendMessage(Combo.hWnd, CB_FINDSTRING, -1, ByVal Combo.text) + 1
  If i > 0 Then
    P = Combo.SelStart
    Combo.ListIndex = i - 1
    Combo.SelStart = P
    Combo.SelLength = Len(Combo.text) - P
    valComboStr = False
  Else
    valComboStr = True
  End If
End Sub

Private LastComboKeyAscii&

Sub ChangeCombo(ChCombo As ComboBox)
  Dim i&, objCB As CCombo
 
  Set objCB = New CCombo
    If Not (LastComboKeyAscii = 8) And Not (LastComboKeyAscii = 46) Then
      Call objCB.AutoFillCombo(ChCombo)
      LastComboKeyAscii = 0
      Call objCB.SearchInCombo(ChCombo)
    Else
      Call objCB.SearchInCombo(ChCombo)
    End If
  Set objCB = Nothing
  Verif_Edit
End Sub


Спасибо за ответы!

P.s.: Очень актуально для меня и нужно вчера...

[alibek]

i-1 это и будет наиболее соответствующий ListIndex.

[Rojohn]

Либо подскажите плз как просто узнать выбрал ли автопоиск реальный элемент из Combo или нет? Без создания отдельной переменной для каждого Combo...

[Rojohn]

Когда поиск нашел значение ListIndex остается =-1 как я не бился...
А i-1 - это внутри модуля. А мне надо проверять в тексте.

[Rojohn]

Можно конечно запоминать для каждого Combo значение переменной valComboStr As Boolean, но это стрёмно. Может можно анализировать как-то по самому Combo и значениям его свойств?

[Rojohn]

Ну как, никто не подскажет? По переменной могу проконтролировать, но надо ещё чтоб ItemData соответствующая поставилась... что никак не выходит.

Хэлп ми плз!

[Rojohn]

Люююдиии....

[GSerg]

Ты нашёл индекс элемента.
Что тебя не устраивает?

[Rojohn]

Да... действительно, я просто сразу не понял. Но всё равно нужно делать для каждого Combo свою переменную, запоминающую индекс i-1. Но зато всё работает Спасибо!