窗体自动居中代码

将窗体居中显示代码。

虽然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