VB如何获取Form窗口边框的大小？

megahjt2 2009-04-05 01:35:42

如下图，我想知道怎么得到窗口边框的高度和宽度。

...全文

1048 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

神马被哪个妞占用了呢 2011-01-09

打赏
举报

做个记号……

K-dash 2010-06-27

打赏
举报

有这样的对象啊- -

zheng3411261992 2009-04-05

打赏
举报

Private Sub Form_Click()
Dim a As Integer, b As Integer
a = Form1.ScaleHeight
b = Form1.ScaleWidth
Print a
Print b
End Sub
这是我的方法

mybelta2 2009-04-05

打赏
举报

关注

chenliangboss 2009-04-05

打赏
举报

转贴：API 函数 GetSystemMetrics

Public Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Integer) As Integer

函数参数nIndex的定义：
SM_ARRANGE Flags specifying how the system arranged minimized windows. For more information about minimized windows, see the following Remarks section.

SM_CLEANBOOT 返回系统启动方式：

0 正常启动

1 安全模式启动

2 网络安全模式启动

SM_CMOUSEBUTTONS 返回值为系统支持的鼠标键数，返回0，则系统中没有安装鼠标。

SM_CXBORDER,

SM_CYBORDER 返回以相素值为单位的Windows窗口边框的宽度和高度，如果Windows的为3D形态，则等同于SM_CXEDGE参数

SM_CXCURSOR,

SM_CYCURSOR 返回以相素值为单位的标准光标的宽度和高度

SM_CXDLGFRAME,

SM_CYDLGFRAME 等同与SM_CXFIXEDFRAME and SM_CYFIXEDFRAME

SM_CXDOUBLECLK,

SM_CYDOUBLECLK 以相素值为单位的双击有效的矩形区域

SM_CXEDGE,SM_CYEDGE 以相素值为单位的3D边框的宽度和高度

SM_CXFIXEDFRAME,

SM_CYFIXEDFRAME 围绕具有标题但无法改变尺寸的窗口（通常是一些对话框）的边框的厚度

SM_CXFRAME,SM_CYFRAME 等同于SM_CXSIZEFRAME and SM_CYSIZEFRAME

SM_CXFULLSCREEN,

SM_CYFULLSCREEN 全屏幕窗口的窗口区域的宽度和高度

SM_CXHSCROLL,

SM_CYHSCROLL 水平滚动条的高度和水平滚动条上箭头的宽度

SM_CXHTHUMB 以相素为单位的水平滚动条上的滑动块宽度

SM_CXICON,SM_CYICON 系统缺省的图标的高度和宽度（一般为32*32）

SM_CXICONSPACING,

SM_CYICONSPACING 以大图标方式查看Item时图标之间的间距，这个距离总是大于等于

SM_CXICON and SM_CYICON.

SM_CXMAXIMIZED,

SM_CYMAXIMIZED 处于顶层的最大化窗口的缺省尺寸

SM_CXMAXTRACK,

SM_CYMAXTRACK 具有可改变尺寸边框和标题栏的窗口的缺省最大尺寸，如果窗口大于这个尺寸，窗口是不可移动的

SM_CXMENUCHECK,

SM_CYMENUCHECK 以相素为单位计算的菜单选中标记位图的尺寸

SM_CXMENUSIZE,

SM_CYMENUSIZE 以相素计算的菜单栏按钮的尺寸

SM_CXMIN,SM_CYMIN 窗口所能达到的最小尺寸

SM_CXMINIMIZED,

SM_CYMINIMIZED 正常的最小化窗口的尺寸

SM_CXMINTRACK,

SM_CYMINTRACK 最小跟踪距离，当使用者拖动窗口移动距离小于这个值，窗口不会移动

SM_CXSCREEN,

SM_CYSCREEN 以相素为单位计算的屏幕尺寸。

SM_CXSIZE,SM_CYSIZE 以相素计算的标题栏按钮的尺寸

SM_CXSIZEFRAME,

SM_CYSIZEFRAME 围绕可改变大小的窗口的边框的厚度

SM_CXSMICON,

SM_CYSMICON 以相素计算的小图标的尺寸，小图标一般出现在窗口标题栏上

M_CXVSCROLL,

SM_CYVSCROLL 以相素计算的垂直滚动条的宽度和垂直滚动条上箭头的高度

SM_CYCAPTION 以相素计算的普通窗口标题的高度

SM_CYMENU 以相素计算的单个菜单条的高度

SM_CYSMCAPTION 以相素计算的窗口小标题栏的高度

SM_CYVTHUMB 以相素计算的垂直滚动条中滚动块的高度

SM_DBCSENABLED 如果为TRUE或不为0的值表明系统安装了双字节版本的USER.EXE,为FALSE或0则不是

SM_DEBUG 如果为TRUE或不为0的值表明系统安装了debug版本的USER.EXE,为FALSE或0则不是

SM_MENUDROPALIGNMENT 如果为TRUE或不为0的值下拉菜单是右对齐的否则是左对齐的

SM_MOUSEPRESENT 如果为TRUE或不为0的值则安装了鼠标，否则没有安装

SM_MOUSEWHEELPRESENT 如果为TRUE或不为0的值则安装了滚轮鼠标，否则没有安装(Windows NT only)

SM_SWAPBUTTON 如果为TRUE或不为0的值则鼠标左右键交换，否则没有

chenliangboss 2009-04-05

打赏
举报

嗷嗷叫的老马 2009-04-05

打赏
举报

路过......

东方之珠 2009-04-05

打赏
举报

1、标题栏高度这样计算：

Private Const SM_CYCAPTION As Long=4   

Private Declare Function GetSystemMetrics Lib "user32"(ByVal nIndex As Long)As Long   

Private Sub Command1_Click()   

       '单位是像素。Windows XP以下操作系统这个值是26，上边框是4个像素，标题栏高度加上上边框共为30个像素。   

        Debug.Print GetSystemMetrics(SM_CYCAPTION)   

End Sub

2、Windows XP以下操作系统：上边框，下边框，左边框，右边框各为4个像素。Vista操作系统这4个值好像都是8（大概看了一下）。

SYSSZ 2009-04-05

打赏
举报

这样也可

Private Sub Command1_Click()

 MsgBox "窗口上边框的高度为:" & Form1.Height - Form1.ScaleHeight - (Form1.Width - Form1.ScaleWidth) / 2

MsgBox "窗口左边框的宽度为:" & (Form1.Width - Form1.ScaleWidth) / 2

End Sub

SYSSZ 2009-04-05

打赏
举报

这是我的方法,测出有边框时的宽度和高度,再测出有边框时的宽度和高度,差就是边框的和,左、右、下边框相等除2得左
边框的宽,上下边框和减下边框得上边框的高,仅供参考.

Private Sub Form_Load()

Dim a, a1, b, b1, c, c1 As Double

Form1.BorderStyle = 1

Form1.Caption = "Form1"

a = Form1.Height

b = Form1.Width

Form1.BorderStyle = 0

Form1.Caption = ""

a1 = Form1.Height

b1 = Form1.Width

c = (b - b1) / 2

c1 = a - a1 - c

MsgBox "窗口上边框的高度为:" & c1

MsgBox "窗口左边框的宽度为:" & c

Form1.BorderStyle = 1

Form1.Caption = "Form1"

End Sub