窗体最大化遇到的问题求教

zhuerw

照抄　Alex　的窗体效果，用系统的菜单没有问题，只用自己的自定义菜单，窗体与菜单间的约1CM的空间太难看，怎么也去不掉，请教各位，怎样解决？（见附件）

zhuerw

文件下载
因文件过大，刚才未传上，现删除图片后传上。
原代码为：
Private Sub Form_Load()
'=============================================================
'刘小军, 2002-04-12
'=============================================================
    Dim I, J As Integer
    '最大化窗口，不显示系统状态栏
    Access.SetOption "Show Status Bar", False
    DoCmd.RunCommand acCmdAppMaximize
   
    docmd.maximize
    I = Me.WindowWidth
    J = Me.WindowHeight
    DoCmd.Restore
    DoCmd.MoveSize 0, 0, I, J
   
    '打开屏幕刷新
    Application.Echo True
   
   
End Sub

只用

   
    docmd.maximize
   
    '打开屏幕刷新
    Application.Echo True
可以，但其他窗体也最大化了。

whiky

我用自定义的方法把系统内置的工具栏啊...其他什么栏之类的都不要他显示，这样就不会有1CM的空间了。alex的办法确实不错。

zhuerw

能否具体说一下？

zhuerw

实际上我就是只显示自定义才出现这种问题。
Alex　在窗体的“关于”上说明适用于　2000和XP，不知是WIN2000和XP还是Access2000和XP？

zhuerw

问题已经解决。工具栏中一个勾也不要。