Estou tentando fazer um datacombo como o do internet explorer.
Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal WParam As Long, lParam As Any) As Long
Global Const CB_ERR = -1
Global Const CB_FINDSTRING = &H14C
Private Sub cbocon_ass_KeyPress(KeyAscii As Integer)
Dim Buffer As String
Dim Ret As Long
Buffer = Left(cbocon_ass.Text, cbocon_ass.SelStart) & Chr(KeyAscii)
Ret = SendMessage((cbocon_ass.hWnd), CB_FINDSTRING, -1, ByVal Buffer)
If Ret <> CB_ERR Then
cbocon_ass.Text = cbocon_ass.list(ret) '???????
cbocon_ass.SelStart = Len(Buffer)
cbocon_ass.SelLength = Len(cbocon_ass.Text)
End If
KeyAscii = 0
End Sub
O meu problema é onde grifei de vermelho, no combobox ele usa a propriedade list.
Gostaria de saber qual que eu uso no datacombo sendo que a lista do meu datacombo é uma SQL
