设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

使窗体居中显示代码

2002-6-10 08:26| 发布者: admin| 查看: 1052| 评论: 10|原作者: huanghai|来自: www.office-cn.net

摘要: ACCESS中的窗体虽然设置了自动居中,但是打开后总是有点不居中的感觉,加下如下代码可以做到真正居中显示 Private Sub Form_Load() DoCmd.Echo False Dim x, y As Integer DoCmd.Maximize x = Me.WindowWidth ...
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
谢谢黄海老师分享。

查看全部评论(10)

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 02:50 , Processed in 0.079776 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部