Ayuda con el DataCombo

[Predaaator]

alguién puede decirme como puedo hacer para que un DataCombo me despliegue de su lista sólo los datos del cuál el dispone mientras voy escribiendo...por ejemplo, algo asi...

[jc_moty]

Proba asi:

Código:

' En la parte General - Declaraciones
Private Declare Function SendMessageLong Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Combo1_Change()
    ' Desplegar ComboBox
    Dim Resp As Long
    Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
End Sub

Ojo, esto lo he hecho con un ComboBox normal, aunque me imagino que debe ser igual para el dataCombo.
Tambien, dejo un programa que mediante una conexión a una base de datos de MS Access simula el Autocompletar de la barra de direcciones del Internet Explorer; para descargarlo hace clic aqui

Saludos

[Predaaator]

Iniciado por jc_moty

Proba asi:

Código:

' En la parte General - Declaraciones
Private Declare Function SendMessageLong Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Combo1_Change()
    ' Desplegar ComboBox
    Dim Resp As Long
    Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
End Sub

Ojo, esto lo he hecho con un ComboBox normal, aunque me imagino que debe ser igual para el dataCombo.
Tambien, dejo un programa que mediante una conexión a una base de datos de MS Access simula el Autocompletar de la barra de direcciones del Internet Explorer; para descargarlo hace clic aqui

Saludos

Muchas Gracias....lo unico malo que le encontre a ese comando es que no me seleciona la palabra ubicada dentro de la lista, solo la escribe completa, y me desaparece el puntero del mouse de la pantalla...pero muchas gracias igual, si sabes como solucionar eso avisame