Ejemplos usando el Api de windows para Visual basic

166 - Saber si la lista de un combo está desplegada o contraida

Ejemplo que utiliza el api SendMessage para averiguar si la lista desplegable de los Items se encuentra desplegada o se encuentra cerrada

El siguiente ejemplo pemite averiguar el estado de la lista desplegable de un combobox utilizando la función del Api SendMessage, ya que el combobox clásico de vb no posee ninguna propiedad para averiguarlo

No se bien para que otros usos puede servir este ejemplo. Yo lo he utilizado en el siguiente:

Previsualizar fuentes de windows en un combobox

.. donde en el ejemplo anterior, la fuente solo se desea visualizar cuando la lista del combo se encuentre desplegada

Al Api SendMessage se le envía el mensaje CB_GETDROPPEDSTATE. Si el Api retorna el valor 0 la lista de elementos se encuentra cerrada. Si retorna 1 se encuentra desplegada

Ejemplo para ver el funcionamiento.

Colocar un control Timer y un Combobox

Código fuente en el formulario

'*************************************************************************** '* Agregar un Timer y un Combo '*************************************************************************** Option Explicit ' Declaración del Api SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Integer, _ ByVal lParam As Any) As Long Private Const CB_GETDROPPEDSTATE As Long = &H157 Private Sub Form_Load() Combo1.AddItem 1 Combo1.AddItem 2 Combo1.AddItem 3 Combo1.AddItem 4 Combo1.AddItem 5 Timer1.Interval = 250 End Sub Private Sub Timer1_Timer() ' Si retorna 0 la lista desplegable está cerrada _ Si retorna 1 está abierta Me.Caption = CBool(SendMessage(Combo1.hwnd, CB_GETDROPPEDSTATE, 0, vbNull)) End Sub

Buscar en Recursos vb