Combos en visual Basic
Hola, tengo una pequeña pregunta espero me puedan 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. ¿Es posible hacer esto? De antemano muchas gracias. Bye
1 respuesta
Respuesta de leosoft
1
Si, esto es posible, el único inconveniente que tiene es que la lista se pliega nuevamente si el formulario u otro control recibe el foco.
Para hacerlo pon esto en el procedimiento general del formulario que desplegá el combo, si son varios formularios lo puedes poner directamente en un modulo:
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
ahora solo pon esto para que se despliegue el combo:
Combo = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
Para plegarlo es similar:
Combo = SendMessageLong(Combo1.hwnd, &H14F, False, 0)
Para que esto se te active apenas se muestra el formulario, lo tendrías que poner en le evento "Activate" del form.
Cualquier cosa me consultas.
Para hacerlo pon esto en el procedimiento general del formulario que desplegá el combo, si son varios formularios lo puedes poner directamente en un modulo:
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
ahora solo pon esto para que se despliegue el combo:
Combo = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
Para plegarlo es similar:
Combo = SendMessageLong(Combo1.hwnd, &H14F, False, 0)
Para que esto se te active apenas se muestra el formulario, lo tendrías que poner en le evento "Activate" del form.
Cualquier cosa me consultas.
