如何改进这个问题？这是我在论坛中下到的一个VBA教材中教的。

zhf2004

这是我在论坛中下到的一个VBA教材中教的。

窗体真正居中显示
如下代码可以做到真正居中显示

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

运行时窗体倒是能居中，但是总是先最大化后再居中，请问怎样作使最大化的过程不显示，使之更专业。

[此贴子已经被作者于2004-1-30 8:38:29编辑过]

zhf2004

请zhengjialon斑竹帮助看看

zhengjialon

这是HUANGHAI总版主的示例，最大化是为了计算当前屏幕的大小，这样才能进行下一步的居中，也就是说这一步是不可少的，否则就不能居中了，所以暂不能解决。

zhf2004

可不可以让最大化的过程不显示出来，比如docmd.echo false(这句不起作用）

zhuyiwen

以下是引用zhf2004在2004-1-31 12:02:18的发言：
可不可以让最大化的过程不显示出来，比如docmd.echo false(这句不起作用）

改用:

Application.Echo False

ACCESS帮助中实例:
应用于 Application 对象。

下面的示例使用 Echo 方法防止在运行某些操作时屏幕被重画。当过程打开一个窗体并将它最小化时，用户只看见一个表示正在进行处理的沙漏图标，而屏幕并不会重画。当该任务完成后，沙漏将变回指针，重画将被重新打开。

Public Sub EchoOff()

' Open the Employees form minimized.
    Application.Echo False
    DoCmd.Hourglass True
    DoCmd.OpenForm "Employees", acNormal
    DoCmd.Minimize
    Application.Echo True
    DoCmd.Hourglass False

End Sub

zhf2004

谢谢zhuyiwen。我明白了。

zhf2004

但屏幕还是会闪一下
Application.Echo False
Dim x, y As Integer
DoCmd.Maximize
x = Me.WindowWidth
y = Me.WindowHeight
DoCmd.Restore
DoCmd.MoveSize (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2
Application.Echo True

zhf2004

如何让最大化的过程不显示？ACCESS2000，屏幕还是会闪。
Application.Echo False
Dim x, y As Integer
DoCmd.Maximize
x = Me.WindowWidth
y = Me.WindowHeight
DoCmd.Restore
DoCmd.MoveSize (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2
Application.Echo True

zhf2004

如何让最大化的过程不显示？???ACCESS2000，屏幕还是会闪。
Application.Echo False
Dim x, y As Integer
DoCmd.Maximize
x = Me.WindowWidth
y = Me.WindowHeight
DoCmd.Restore
DoCmd.MoveSize (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2
Application.Echo True

zhuyiwen

Private Sub Form_Load()
Application.Echo False
Dim x, y As Integer

DoCmd.Maximize
x = Me.WindowWidth
y = Me.WindowHeight
DoCmd.Restore
DoCmd.MoveSize (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2, Me.WindowWidth, Me.WindowHeight
Application.Echo True
End Sub

我在ACCESS2000中运行它，屏幕并不闪呀