我试图在它下面的控件上显示一个相对于 Button 的表单。
但是 Button.top 相对于 标题栏 底部窗体，顶部窗体将相对于屏幕。
所以，为了弥补这一点，我现在需要标题栏有多高。
我使用了 Form.height-Form.ScalehHeight 但 ScaleHeight 不包括标题栏 或 边框因此 Scaleheight 略微膨胀。
有人知道如何计算标题栏的高度吗？
最佳答案
您需要使用 GetSystemMetrics API 调用以获取标题栏的高度。
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
注意:这将返回以像素为单位的高度。如果您需要缇，则必须使用表单的
ScaleY 进行转换。方法如下:Me.ScaleY(TitleBarHeight(), vbPixels, vbTwips)
关于vb6 - VB6中如何计算标题栏的高度？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/497578/