设为首页收藏本站Access中国
开启辅助访问

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

使窗体居中显示代码

2002-6-10 08:26| 发布者: admin| 查看: 1197| 评论: 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
收藏 分享 邀请
上一篇：将金额数字转成中文大写下一篇：Windows脚本组件与ACCESS[原作]
发表评论

最新评论

引用 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, 2025-4-2 12:13 , Processed in 0.078012 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部