Form titlebar height

[Phillip Reeves]

Hi

I'm using Excel to build a custom application, and use a
class module to muck around with forms to do things such
as remove/resize the titlebar, remove the maximize
button, etc. (it is based upon one I downloaded from one
of the Excel MVP sites).

My problem is that when I remove the titlebar of a form,
the form height remains the same, so that it doesn't
display as designed (i.e. with an extra bit at the
bottom). Yes, I adjust the height in code by a fixed
amount, but that only works cleanly on my OS display
settings (XP style). If my app runs on Windows 2000
(with the shorter titlebars), the form heights are not
adjusted properly.

So, I need to know which windows .dll to use (and how) to
determine the user's titlebar height setting in twips (or
whatever measurement scale Excel VBA uses for form
heights). I guess it's user32.dll with GetSystemMetrics
(maybe!), but which item number is it?

Hope that makes some sense to somebody!

Many thanks, Phillip

 

[Michel Pierron]

Hi Phillip;
The title bar is a skin; if you remove the title bar, you must change
dimensions of the window consequently.
hCaption = Me.Height - Me.InsideHeight - ((Me.Width - Me.InsideWidth) / 2)
Me.Height = Me.Height - hCaption

MP

 

[Phillip Reeves]

Hi Michel,

Thank you so much for your prompt solution! I've been
trying to sort that out for ages...

I had to reduce the value of hCaption by 2.5 to get the
forms to appear precisely the same regardless of Windows
titlebar heights, but it works wonderfully now.

Thanks again,

Phillip

 

[Michel Pierron]

Hi Phillip;
If your window does not have a framework, hCaption = Me.Height -
Me.InsideHeight.
2.5 is about the width of the framework.
MP

"Phillip Reeves" <[email protected]> a écrit dans le message de
Hi Michel,

Thank you so much for your prompt solution! I've been
trying to sort that out for ages...

I had to reduce the value of hCaption by 2.5 to get the
forms to appear precisely the same regardless of Windows
titlebar heights, but it works wonderfully now.

Thanks again,

Phillip