VB Snippet - Resizing a ComboBox's Drop Down Height

[seec77]

This code is really useful!

Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type
 
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function ScreenToClientAny Lib "user32" Alias "ScreenToClient" (ByVal hWnd As Long, lpPoint As Any) As Long
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
 
Public Sub SetComboBoxHeight(ComboBox As ComboBox, ByVal NewHeight As Long)
Dim lpRect As RECT
Dim wi As Long
GetWindowRect CB.hWnd, lpRect
wi = lpRect.Right - lpRect.Left
ScreenToClientAny CB.Parent.hWnd, lpRect
MoveWindow CB.hWnd, lpRect.Left, lpRect.Top, wi, NewHeight, True
End Sub

You can use it in this manner:

Private Sub Form_Load()
SetHeightComboBox Combo1, 200
End Sub

If you set the NewHeight to something larger than all the entries in the ComboBox the height of the DropDown is the sum of all the entries!
BTW, the NewHeight is in pixels...

I got this code from VB2theMax, and I do not take any credit for the code. I just thought people might like this code and I couldn't find any similar code in the Code Bank.

[Hawk]

Hi,

There are errors in your code.

Where it say SetComboBoxHeight and ComboBox, you need to update the variable.

[seec77]

oops, fixed it!