ComboBox DropDown size

[Steve Thomas]

I am using VB6. Following is the procedures in the MSDN that tells how to change the size of the dropdown area of a ComboBox. However, it does not seem to work. Does anyone know if I need to add a reference or somehow set something to get this to work?????


To set the size of the combo box drop-down area

Click the drop-down arrow at the right of the combo box.
The outline of the control changes to show the size of the combo box with the drop-down area extended.

Use the bottom sizing handle to change the initial size of the drop-down area.


Click the drop-down arrow again to close the drop-down portion of the combo box.

[MartinLiss]

I believe that they are referring to a Simple Combo (Style = 1). In design mode if you drag down the bottom of the combo, 1 or more items in the (simple) combo can be displayed.

[Steve Thomas]

Thanks for the response. However, I do not believe that they are talking about a simple combo becasue the instructions say to click on the drop down arrow and there is no drop down arrow on a simple ComboBox. Plus, the instructions in MSDN also have a picture next to it???????

[MartinLiss]

Well unfortunately it wouldn't be the first time that the documentation is wrong.

[Chris]

Hi Steve Thomas, hope this can help you.

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Const CB_SETDROPPEDWIDTH = &H160

Private Sub Form_Load()
    With Combo1
        .AddItem "Item 1"
        .AddItem "Item 2"
        .AddItem "Item 3"
        .AddItem "Item 4"
        .AddItem "Item 5"
    End With
    SendMessage Combo1.hwnd, CB_SETDROPPEDWIDTH, 500, 0
End Sub

[Steve Thomas]

Thanks for the help. It doesn't seem to do anything. It is almost like there is another setting that locks it. Have you tried following the doc and manually setting an ADO comboBox?? if so does it work for you?????