[求助]隐藏系统的主窗口之后

gutguy

代码如下：
Option Compare Database

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3


Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
          ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Dim loX  As Long
Dim loForm As Form
    On Error Resume Next
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
    Err.Clear
    fSetAccessWindow = (loX <> 0)
End Function

启动窗体：
Private Sub Form_Load()
    fSetAccessWindow (SW_HIDE)
    DoCmd.Restore
End Sub
程序运行过程中调用fSetAccessWindow (SW_SHOWMAXIMIZED)后，系统的主窗口出现并最大化，但菜单哪去了？怎么找回来？第二，在上个问题解决后，如何才能在fSetAccessWindow(SW_SHOWMAXIMIZED)之后，只显示＜文件＞菜单？

zhengjialon

主窗体隐藏后菜单也跟着隐藏了，你可以在窗体上建立菜单。

gutguy

你指自建一个菜单吗？有没有办法让系统菜单显示出来呢？
我用fSetAccessWindow (SW_SHOWMAXIMIZED)后再用MsgBox(Commandbars(“Menu Bar”).Enable & Commandbars("Menu Bar").Visible)得到的是TrueTrue。可是我明明看不到菜单栏。百思不得其解

paul16

隐藏系统主窗体后就不能看到菜单了！你可以使用自己的菜单栏来代替系统主窗体！

gutguy

paul16：
我知道隐藏系统主窗体后就不能看到菜单了，问题是我用fSetAccessWindow (SW_SHOWMAXIMIZED)再次显示主窗体，菜单还是看不到，难道一次隐藏后即使恢复也不可能看到菜单吗？

paul16

以下是引用gutguy在2004-4-7 20:05:16的发言：
paul16：
我知道隐藏系统主窗体后就不能看到菜单了，问题是我用fSetAccessWindow (SW_SHOWMAXIMIZED)再次显示主窗体，菜单还是看不到，难道一次隐藏后即使恢复也不可能看到菜单吗？

那你将库传上来看一下！

gutguy

好，麻烦啦!
在点击PRINT后打印预览，此时菜单不显示，但用代码MSGBOX显示MENU BAR的VISIBLE与ENABLE都是TRUE

[此贴子已经被作者于2004-4-7 20:23:12编辑过]

paul16

下载后看了一下，不懂哦！
我用来最小化主窗体的代码：

    DoCmd.RunCommand acCmdAppMinimize

还原：

        DoCmd.RunCommand acCmdAppMaximize

gutguy

THX!：)