＋设为首页 ＋添加到收藏夹
如何得到标准窗口标题栏的高度值,也就是窗口蓝色的那部分,win98,2000等和winxp,win2003的高度值是不同的,如何得到准确的数值呢.
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CYCAPTION = 4
Private Sub Command1_Click()
Dim h As Long
h = GetSystemMetrics(SM_CYCAPTION)
MsgBox "普通窗口的标题栏高度为" + CStr(h) + "像素"
End Sub
