devxlogo

SetListItemHeight – Change the height of items in a ListBox or ComboBox control

SetListItemHeight – Change the height of items in a ListBox or ComboBox control

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _    hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _    lParam As Any) As LongConst LB_SETITEMHEIGHT = &H1A0Const CB_SETITEMHEIGHT = &H153' Set the height in pixels of each entry in a ListBox or ComboBox controlSub SetListItemHeight(ctrl As Control, ByVal newHeight As Long)    Dim uMsg As Long    If TypeOf ctrl Is ListBox Then        uMsg = LB_SETITEMHEIGHT    ElseIf TypeOf ctrl Is ComboBox Then        uMsg = CB_SETITEMHEIGHT    Else        Exit Sub    End If    ' (only the low-order word of lParam can be used.)    SendMessage ctrl.hwnd, uMsg, 0, Byval CLng(newHeight And &HFFFF&)    ' It is necessary to manually refresh the control.    ctrl.RefreshEnd Sub

See also  5 Tips for Working With an Onsite Interpreter
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist