How do you calculate the height of the title bar in VB6?

Question

I'm trying to display one form relative to a Button on a control below it.

But Button.top is relative to the titlebar of the bottom form, and the top form will be relative to the screen.

So, to compensate for that I need to now how tall the titlebar is.

I've used Form.height-Form.ScalehHeight but ScaleHeight doesn't include the title bar or the border so Scaleheight is inflated slightly.

Anyone know how to calculate the height of just the title bar?

Answer 1

You'll probably need to make a Win32 API call to GetSystemMetrics()

Answer 2

You need to use the GetSystemMetrics API call to get the height of the titlebar.

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CYCAPTION = 4

Property Get TitleBarHeight() as Long
    TitleBarHeight = GetSystemMetrics(SM_CYCAPTION)
End Property

Note: This will return the height in pixels. If you need twips you will have to convert using a form's ScaleY method like so: Me.ScaleY(TitleBarHeight(), vbPixels, vbTwips)

Answer 3

Subract it back out:

(Form.height-Form.ScaleHeight) - (Form.Width-Form.ScaleWidth) / 2

Answer 4

"Recursive's" answer above is not quite correct. It subtracts twice the border width - there is a border on the left and one on the right!

We get the best results with this:

(Form.Height-Form.ScaleHeight) - (Form.Width-Form.ScaleWidth)/2