devxlogo

GetListItemHeight – Return the height of a ListBox or ComboBox item

GetListItemHeight – Return the height of a ListBox or ComboBox item

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_GETITEMHEIGHT = &H1A1Const CB_GETITEMHEIGHT = &H154' Return the height of each entry in a ListBox or ComboBox control (in pixels)Function GetListItemHeight(ctrl As Control) As Long    Dim uMsg As Long    If TypeOf ctrl Is ListBox Then        uMsg = LB_GETITEMHEIGHT    ElseIf TypeOf ctrl Is ComboBox Then        uMsg = CB_GETITEMHEIGHT    Else        Exit Function    End If    GetListItemHeight = SendMessage(ctrl.hwnd, uMsg, 0, ByVal 0&)End Function

See also  Comparing different methods of testing your Infrastructure-as-Code
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