Office中国论坛/Access中国论坛

标题: [求助]隐藏系统的主窗口之后 [打印本页]

作者: gutguy 时间: 2004-4-6 06:57
标题: [求助]隐藏系统的主窗口之后
代码如下：
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 时间: 2004-4-6 15:53
主窗体隐藏后菜单也跟着隐藏了，你可以在窗体上建立菜单。

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

作者: paul16 时间: 2004-4-7 04:44
隐藏系统主窗体后就不能看到菜单了！你可以使用自己的菜单栏来代替系统主窗体！

作者: gutguy 时间: 2004-4-8 04:05
paul16：
我知道隐藏系统主窗体后就不能看到菜单了，问题是我用fSetAccessWindow (SW_SHOWMAXIMIZED)再次显示主窗体，菜单还是看不到，难道一次隐藏后即使恢复也不可能看到菜单吗？

作者: paul16 时间: 2004-4-8 04:07

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

那你将库传上来看一下！

作者: gutguy 时间: 2004-4-8 04:19
好，麻烦啦!
在点击PRINT后打印预览，此时菜单不显示，但用代码MSGBOX显示MENU BAR的VISIBLE与ENABLE都是TRUE
[attach]4158[/attach]

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

作者: paul16 时间: 2004-4-8 05:00
下载后看了一下，不懂哦！
我用来最小化主窗体的代码：

DoCmd.RunCommand acCmdAppMinimize

还原：

DoCmd.RunCommand acCmdAppMaximize

作者: gutguy 时间: 2004-4-8 05:09
THX!：)

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