Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Oct 30, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Change the width of the dropdown portion of a ComboBox

The ComboBox control doesn't expose any property that lets you to control the width of its list area, but this can be easily accomplished by sending it the CB_SETDROPPEDWIDTH message, and passing the new length in pixel in wParam:

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

' Set the width of the list area of a ComboBox (in pixels)

Sub SetComboDropDownWidth(ComboBox As ComboBox, ByVal lWidth As Long)
    SendMessage ComboBox.hWnd, CB_SETDROPPEDWIDTH, lWidth, ByVal 0&
End Sub
For example, you can use the above reusable routine to set a ComboBox's drop down list width to 200 pixels using the following line of code:

SetComboDropDownWidth Combo1, 200
Marco Bellinaso
Comment and Contribute






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



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