Ver Mensaje Individual
  #3 (permalink)  
Antiguo 18/12/2005, 01:56
Predaaator
 
Fecha de Ingreso: agosto-2005
Mensajes: 34
Antigüedad: 19 años, 8 meses
Puntos: 0
Cita:
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