Calculate height of listbox?

  • Thread starter Thread starter mscertified
  • Start date Start date
M

mscertified

Is there a forumla to calculate the needed height of a listbox in order to
contain a given number of lines of a given point size?
 
Not without a bunch of GDI API work. The AutoSizeTextBox solution on my site
shows you how.

A far simpler solution, that is almost as accurate would be to use
code/logic like:

Assumes ListBox control named lbHeight
Assumes TestBox control named Text11
Assumes CommandButton named CmdSize

Enter a desired number of rows value in Text11 and then click on the
CommandButton.

Private Sub cmdSize_Click()
On Error GoTo Err_cmdSize_Click

Dim x As Integer

' convert Twips to TwipsPerPoint
x = 1440 / 72
' multiply font height x TwipsPerPoint
x = (x * Me.lbHeight.FontSize) * Val(Me.Text11.Value)
' Vertical space(margin)Access leaves between rows when more than 1 row
x = x + (Val(Me.Text11.Value) - 1) * 50


' Resize ListBox control to display Number Of Rows as expressed In Text1
' Access leaves around 100 Twips as a margin at the top of the ListBox
control
Me.lbHeight.Height = x + 100

Exit_cmdSize_Click:
Exit Sub

Err_cmdSize_Click:
MsgBox Err.Description
Resume Exit_cmdSize_Click

End Sub


--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
 
Back
Top