Set A Combo Box's Drop Down Height in Inches

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Intelligent Solutions Inc.

Version Compatibility:

More information:

See comments for usage and limitations.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit 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

Code:

Public Function SetComboBoxHeight(objCB As ComboBox, _
  TheHeight As Single) As Boolean
  
'*************************************************

'PURPOSE: Sets dropdown height of combo box
'         in Inches

'SAMPLE USAGE:
'         SetComboBoxHeight combo1, 4
'
'RETURNS:  True if successful, false otherwise
'
'USAGE NOTES: The Function must be placed in the
'             Same Form Module that contains the
'             ComboBox
'
'             The combo box's parent must be a form
'             not a container such as picture box or
'             a frame
'
'             The scale mode of the form must
'             be twips
'
'             Only works to increase drop-down
'             height, not decrease it
'
'             The increase height won't go beyond
'             the maximum viewable space of the
'             combo box (i.e., there will be
'             no padded blank space on the bottom
'             of the combo box

'*************************************************

On Error Resume Next
Dim lHeight As Single
lHeight = TheHeight * 1440 'inches to pixels
lHeight = lHeight / Screen.TwipsPerPixelY
Me.ScaleMode = vbPixels
With objCB
    MoveWindow .hwnd, .Left, .Top, .Width, lHeight, 1
End With
Me.ScaleMode = vbTwips

SetComboBoxHeight = Err.Number = 0 And Err.LastDllError = 0

End Function