Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Sep 25, 1999

Open the list portion of a ComboBox control

To programmatically open and close the list portion of a ComboBox control, all you need is sending the CB_SHOWDROPDOWN message to the control. Here is a routine that encapsulate the SendMessage API function:


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
    hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
Const CB_SHOWDROPDOWN = &H14F
Const CB_GETDROPPEDSTATE = &H157
    
' Show or hide the list portion of a combobox
    
Sub ComboBoxOpenList(cbo As ComboBox, Optional showIt As Boolean = True)
    SendMessage cbo.hwnd, CB_SHOWDROPDOWN, showIt, ByVal 0&
End Function
Retrieving the current visibility state of the list portion of a ComboBox can be done by sending a message, too. Here is a wrapper function that does it all:

' Returns True if the list portion of a combobox is visible

Function ComboBoxIsListVisible(cbo As ComboBox) As Boolean
    ComboBoxIsListVisible = SendMessage(cbo.hwnd, CB_GETDROPPEDSTATE, 0, _
        ByVal 0&)
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date