窗体自动居中代码
将窗体居中显示代码。
虽然access中的窗体设置为自动居中,但打开时总感觉有点偏离中心。添加以下代码,使其真正居中。
私有子窗体_Load()
DoCmd。回声错误
将x,y标注为整数
DoCmd。达到最大值
x =我。窗口宽度
y =我。窗口高度
DoCmd。恢复
DoCmd。Echo True
动(x - Me。WindowWidth) / 2,(y - Me。WindowHeight) / 2
末端接头
以下代码适用于accessXP和更高版本。
用法:
私有子窗体_Load()
' MoveFormToCenter Me '居中。
末端接头
私有子窗体_Load()
' MoveFormToCenter Me,3000,2000 '调整窗体大小并居中
末端接头
选项比较数据库
选项显式
RECT标牌
x1一样长
y1一样长
x2一样长
y2一样长
结束类型
公共声明函数GetClientRect Lib“user 32”(ByVal hwnd为Long,lpRect为Rect)为Long
菜单栏高度:22
工具栏高度:26
状态栏高度:20
0条评论