Desplegar combo automáticamente
Hola, tengo una pequeña pregunta espero me puedas colaborar. Lo que quiero es que apenas me cargue una forma en la cual tengo un combo, el combo despliegue su contenido automáticamente sin necesidad de darle click. El combo lo estoy cargando al cativar la forma. ¿Es posible hacer esto? De antemano muchas gracias. Bye
1 respuesta
Respuesta de Roberto Alvarado
1
Debemos declarar :
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
Para desplegar la lista :
res = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
Para plegarla :
res = SendMessageLong(Combo1.hwnd, &H14F, false, 0)
Nota : La lista se cierra automáticamente cuando otro control (o el formulario) obtiene el foco.
Saludos
Roberto Alvarado
Cartagena - Colombia
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
Para desplegar la lista :
res = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
Para plegarla :
res = SendMessageLong(Combo1.hwnd, &H14F, false, 0)
Nota : La lista se cierra automáticamente cuando otro control (o el formulario) obtiene el foco.
Saludos
Roberto Alvarado
Cartagena - Colombia
