ComboBox manipulation

[bzemer]

hi,
is there a way to set the combo box list hight.

i have several items in the combo box and because there is one too many i get a scrollbar on the side and i have to scroll down, so.. how do i set the list hight?

i know it is possible to set the width


thanks..

[MartinLiss]

Set the IntegralHeight to False and then set the Height to what you want. The Style must be = 1 (Simple Combo).

[bzemer]

no can't do this, the whole point of a combo box is to be a dropdown combo.

i have a piece of code, it uses some api calls and i think these are the ones.. but here is the code for resizeing horizontaly.

Private Const CB_SETDROPPEDWIDTH = &H160
Private Const CB_GETDROPPEDWIDTH = &H15F
Private Const DT_CALCRECT = &H400

Public Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Public Declare Function SendMessageLong Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Declare Function DrawText Lib "user32" Alias _
    "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, _
    ByVal nCount As Long, lpRect As RECT, ByVal wFormat _
    As Long) As Long

'

Function AutosizeCombo(Combo As ComboBox) As Boolean
    
    'Automatically sizes a combo box to
    'hold the longest item within it

    Dim lngRet As Long
    Dim lngCurrentWidth As Single
    Dim rectCboText As RECT
    Dim lngParentHDC As Long
    Dim lngListCount As Long
    Dim lngCounter As Long
    Dim lngTempWidth As Long
    Dim lngWidth As Long
    Dim strSavedFont As String
    Dim sngSavedSize As Single
    Dim blnSavedBold As Boolean
    Dim blnSavedItalic As Boolean
    Dim blnSavedUnderline As Boolean
    Dim blnFontSaved As Boolean

On Error GoTo ErrorHandler

    'Grab the combo handle and list count

    lngParentHDC = Combo.Parent.hdc
    lngListCount = Combo.ListCount

    If lngParentHDC = 0 Or lngListCount = 0 Then Exit Function

    'Save combo box fonts, etc. to the parent
    'object (form), for testing lengths with the API

    With Combo.Parent

        strSavedFont = .FontName
        sngSavedSize = .FontSize
        blnSavedBold = .FontBold
        blnSavedItalic = .FontItalic
        blnSavedUnderline = .FontUnderline
        
        .FontName = Combo.FontName
        .FontSize = Combo.FontSize
        .FontBold = Combo.FontBold
        .FontItalic = Combo.FontItalic
        .FontUnderline = Combo.FontItalic

    End With

    blnFontSaved = True

    'Get the width of the widest item

    For lngCounter = 0 To lngListCount
       DrawText lngParentHDC, Combo.List(lngCounter), -1, rectCboText, _
            DT_CALCRECT

        'Add twenty to the the number as a margin
       lngTempWidth = rectCboText.Right - rectCboText.Left + 25

        If (lngTempWidth > lngWidth) Then
           lngWidth = lngTempWidth
        End If

    Next
 
    'Get current width of combo
 
    lngCurrentWidth = SendMessageLong(Combo.hwnd, CB_GETDROPPEDWIDTH, _
        0, 0)

    'If big enough then that's all A-OK
    If lngCurrentWidth > lngWidth Then

        AutosizeCombo = True
        GoTo ErrorHandler
        Exit Function
    
    End If
 
    '... but if not big enough, first calculate
    'the screen width to ensure we don't exceed it!
 
    If lngWidth > Screen.Width \ Screen.TwipsPerPixelX - 25 Then _
        lngWidth = Screen.Width \ Screen.TwipsPerPixelX - 25

    'Set the width of our combo
    lngRet = SendMessageLong(Combo.hwnd, CB_SETDROPPEDWIDTH, lngWidth, 0)

    'Set the function to True/False depending on API success
    AutosizeCombo = lngRet > 0
    
ErrorHandler:
        
    'If anything goes wrong, revert back!
    
    On Error Resume Next
    
    If blnFontSaved Then
      With Combo.Parent
        .FontName = strSavedFont
        .FontSize = sngSavedSize
        .FontUnderline = blnSavedUnderline
        .FontBold = blnSavedBold
        .FontItalic = blnSavedItalic
     End With
    End If

End Function

then this code goes into the form_load
Dim X
If X = AutosizeCombo(ComboMod) = True Then Exit Sub

i just need the vertical code.

i'm sure there is one