Office中国论坛/Access中国论坛

标题: 求助:关于窗体居中的模块设计及调用 [打印本页]

作者: gechunkai 时间: 2006-2-12 17:40
标题: 求助:关于窗体居中的模块设计及调用
我设计了一个模块,希望在窗体加载时能够自动调用,实现窗体的自动居中.

模块名为:M_FormCenter

内容

代码来自网友提供的VBA编程资料,稍作修改)

public FormCenter(f as form)

docmd.echo false

docmd.maximize

dim x,y as integer

x=f.windowwidth

y=f.windowheight

docmd.restore

docmd.echo true

move (x-me.windowwidth)/2,(y-me.windowheight)/2

end sub

在窗体启动代码中加入

Call FormCenter(me)

因为我以前没用用过模块,所以不知道是我的代码有问题还是模块调用上出了问题.望高手帮忙解答.

作者: sgrshh29 时间: 2006-2-12 21:30
1 public sub FormCenter(f as form)

2 f.move (x-f.windowwidth)/2,(y-f.windowheight)/2

[此贴子已经被作者于2006-2-12 13:31:34编辑过]

作者: fan0217 时间: 2006-2-13 03:03
在模块中不能使用Me，红色的部分要注意，2楼的讲的很清楚了。

public sub FormCenter(f as form)

docmd.echo false

docmd.maximize

dim x as integer ,y as integer '应分别声明

x=f.windowwidth

y=f.windowheight

docmd.restore

docmd.echo true

f.move (x-f.windowwidth)/2,(y-f.windowheight)/2

end sub

作者: gechunkai 时间: 2006-2-13 18:00
谢谢版主！

第一个问题是打字上的错误，下次我一定仔细看了再上传！

关键是学到了应该用F.MOVE，唉，这个问题自己仔细看看应该能解决的，以后要多研究研究，不再乱浪费网友、版主的精力了。

作者: gechunkai 时间: 2006-2-13 18:41
又出现一个问题。窗体居中后，它关联的下一级窗体为什么在打开的时候总是层次上在当前窗体之下，以至于无法看全。这是什么原因？

作者: yamaying 时间: 2010-6-13 17:47
为什么没有人回啊~也想学学

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