Combo Box Size

[traze]

Howdy Y'all,
I'm trying to adjust the number of items displayed in a drop down combo box. Basically if I have a boat load of items and I would like to display more than default 8. Any lines?
Merci.

To increase the height of the dropdown box, try this code.

Private Declare Function MoveWindow _
Lib "user32" (ByVal hwnd As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight _
As Long, ByVal bRepaint As Long) As Long

Private Sub SetComboHeight(oComboBox As ComboBox, _
lNewHeight As Long)

Dim oldscalemode As Integer

' This procedure does not work with frames: you 
' cannot set the ScaleMode to vbPixels, because 
' the frame does not have a ScaleMode Property. 
' To get round this, you could set the parent control
' to be the form while you run this procedure.

If TypeOf oComboBox.Parent Is Frame Then Exit Sub

' Change the ScaleMode on the parent to Pixels.
oldscalemode = oComboBox.Parent.ScaleMode
oComboBox.Parent.ScaleMode = vbPixels

' Resize the combo box window.
MoveWindow oComboBox.hwnd, oComboBox.Left, _
oComboBox.Top, oComboBox.Width, lNewHeight, 1

' Replace the old ScaleMode
oComboBox.Parent.ScaleMode = oldscalemode
End Sub


Usage


Private Sub Form_Load()
    Call SetComboHeight(Combo1, 1450)
End Sub

[traze]

Mr. Gates you have out-done yourself once again! thank you for the snidbit.