求助:关于窗体居中的模块设计及调用

gechunkai

我设计了一个模块,希望在窗体加载时能够自动调用,实现窗体的自动居中.

模块名为: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

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

在模块中不能使用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

谢谢版主！

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

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

gechunkai

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

yamaying

为什么没有人回啊~也想学学