Office中国论坛/Access中国论坛

标题: 使窗体居中显示代码 [打印本页]

作者: huanghai 时间: 2002-6-10 08:26
标题: 使窗体居中显示代码
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

作者: tmtony 时间: 2002-6-10 17:31
你真是想得细致，连这个都做到啦：）

作者: zhuerw 时间: 2002-7-8 01:42
这个在普通窗体中特好用。
在弹出窗体中怎么防止出现伸缩呢？

作者: 竹笛 时间: 2002-7-8 04:40
做得好棒啊！

作者: binbow_z 时间: 2002-7-8 05:01
精益求益

作者: Jacky 时间: 2002-7-9 01:57
用错了一个命令,MOVE..改为Docmd.movesize......

作者: zhuerw 时间: 2002-7-11 02:12
弹出窗体怎样真正居中？

作者: jiangyi 时间: 2003-2-6 10:09
不错!去看的程序员题目有考，早知道就好了

作者: my_heyou 时间: 2004-6-13 05:24
ACCESS2000下好象用不了呀

作者: wuyuanhui 时间: 2004-7-12 16:58
虽然能据中，但窗体还要经过最大化，再复原就显得。。。。DoCmd.MaximizeDoCmd.Restore

作者: chaojianan 时间: 2009-4-17 20:57
谢谢黄海老师分享。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)