Userform listbox - Height

[Formula11]

How can you find the default height of listbox entries.

This is to resize the height based on the formula:
Height = Row height * number of entries.

Can it be done in pixels as well?

 

[Jaafar Tribak]

I think, by default, (at least in my installation) MsForms creates listboxes with a height of 72 pts, with 7 entries and with the IntegralHeight set to TRUE.
So, in theory, this should give you the default height of a single listbox entry:
DefHeight= 72/7

To convert to pixels just multiply by 0.75

Alternatively, you could use Microsoft Active Accessibillity AccLocation Method to read the height of a single entry. This method is probably more accurate.

 

[Jaafar Tribak]

Actually, after removing the listbox border , it gives a listbox height of 68.25 pts. This is more accurate.

So the default height of a listbox entry should be : (68.25/7) = 9.75 points

 

[Formula11]

Thanks for assisting.
I'll look into AccLocation and use 9.75 in the meantime.

 

[Jaafar Tribak]

Here is a generic SUB that will adjust the height of the listbox to the number of entries of your choice while taking into account the listbox border style.

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else
    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#End If

Private Sub SetHeight(ByVal LBox As MsForms.ListBox, ByVal NumberOfEntries As Long)
    Const SM_CYEDGE = 46&
    With LBox
        NumberOfEntries = IIf(NumberOfEntries > .ListCount, .ListCount, NumberOfEntries)
        .Height = ((9.75 * NumberOfEntries) + IIf(.SpecialEffect = fmSpecialEffectFlat, 0, GetSystemMetrics(SM_CYEDGE)))
    End With
End Sub

Usage:
So, for example, the following will resize the listbox to 10 entries :

SetHeight ListBox1, 10

 

[Formula11]

Thanks Jaafar, this is quite useful.

 

[Jaafar Tribak]

Thanks Jaafar, this is quite useful.

Thanks for the feedback.

To convert to pixels, just multiply by 0.75

Ooops ! That was a mistake in post#2 regarding the conversion to pixels... In case you still want to convert the default row height to pixels, it should be multiplied by 1/0.75