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

devx-admin

Share the Post: