auto completar combobox vb6

[Nascimento]

Olá pessoal do vb6 eu estou precisando muito de uma função do combobox auto complete tipo fare Fox e Internet Explorer

Só achei esta função em API, mas não para banco de dados o qual estou precisando

Aki esta o exemplo do codigo:

'Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000

'Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000

'Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000

'Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000

'Private Const SHACF_DEFAULT = &H0

'Private Const SHACF_FILESYSTEM = &H1

'Private Const SHACF_URLHISTORY = &H2

'Private Const SHACF_URLMRU = &H4

'Private Const SHACF_USETAB = &H8

'Private Const SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU)

Private Declare Sub SHAutoComplete Lib "shlwapi.dll" (ByVal hwndEdit As Long, ByVal dwFlags As Long)

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Form_Load()

Handle = FindWindowEx(Combo1.hWnd, 0, "edit", nullstring)

SHAutoComplete Handle, SHACF_DEFAULT

SHAutoComplete Text1.hWnd, SHACF_DEFAULT

End Sub

Coloque isso em um form e adicione um combobox e um textbox

[kuroi]

veja se este tópico ajuda: http://scriptbrasil.com.br/forum/index.php?showtopic=103757