使窗体居中显示代码

huanghai · 发表于 2002-6-10 08:26:00

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:00

你真是想得细致，连这个都做到啦：）

zhuerw · 发表于 2002-7-8 01:42:00

这个在普通窗体中特好用。
在弹出窗体中怎么防止出现伸缩呢？

竹笛 · 发表于 2002-7-8 04:40:00

做得好棒啊！

binbow_z · 发表于 2002-7-8 05:01:00

精益求益

Jacky · 发表于 2002-7-9 01:57:00

用错了一个命令,MOVE..改为Docmd.movesize......

zhuerw · 发表于 2002-7-11 02:12:00

弹出窗体怎样真正居中？

jiangyi · 发表于 2003-2-6 10:09:00

不错!去看的程序员题目有考，早知道就好了

my_heyou · 发表于 2004-6-13 05:24:00

ACCESS2000下好象用不了呀

wuyuanhui · 发表于 2004-7-12 16:58:00

虽然能据中，但窗体还要经过最大化，再复原就显得。。。。DoCmd.MaximizeDoCmd.Restore

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

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 使窗体居中显示代码

群介绍
主题无相 (随机显示版	同地区群块其他地区)