Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 窗体标准控件 › 查看内容

使窗体居中显示代码

1970-1-1 08:00| 发布者: 黄海| 查看: 2313| 评论: 0

使窗体居中显示代码
ACCESS中的窗体虽然设置了自动居中，但是打开后总是有点不居中的感觉，加下如下代码可以做到真正居中显示

Private Sub Form_Load()
DoCmd.Echo False
Dim x, y As Integer
DoCmd.Maximize
x = Me.WindowWidth
y = Me.WindowHeight
DoCmd.Restore
DoCmd.Echo True
Move (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2
End Sub

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

使窗体居中显示代码

最新评论

相关分类