Office中国论坛/Access中国论坛

标题: 屏蔽菜单栏上的还原和关闭按钮 [打印本页]

作者: Trynew 时间: 2008-8-1 14:22
标题: 屏蔽菜单栏上的还原和关闭按钮
我们经常会在Access主窗体中使用一个最大化的窗体，作为背景窗体进行美化，或者直接作为程序的面板窗体。但这样，菜单栏的右边会有一个讨厌的还原按钮，甚至是帮助查询框、关闭按钮等。为了去掉这个还原按钮又要使用菜单，我和论坛上众多高手都曾作了不少尝试。通常都有下面几种方法：
1、不用菜单栏，用Toolbar控件或工具栏代替菜单栏，但又会有讨厌的下拉箭头出现，也显得不够“专业”。为此，我还用ListView或标签控件模拟主菜单而使用弹出式菜单等方法，但都是出力不讨好的权宜之计。
（隐藏主菜单的方法：建立一个自定义菜单，属性要改为菜单，并在启动窗口中选此菜单作为程序菜单。在设计或运行时把此菜单拖动到窗口中关闭及可。）
2、另一个比较常用的方法是先把主窗体最大化，再把背景窗体最大化，取得此时背景窗体的大小尺寸。然后把背景窗体还原，设置背景窗体的尺寸为先前最大化时的尺寸。这样还用一个好处是，这是可以使用非弹出式窗体而不会都是最大化。缺点是主窗体尺寸变更时，背景窗体无法同步变更，且主窗体会出现滚动条，影响美观和使用。
这种方法的一种代码是：
Private Sub Form_Current()

Dim FormWidth, FormHeight As Integer
'DoCmd.RunCommand acCmdAppMaximize '将access界面最大化
DoCmd.Maximize
FormWidth = Me.WindowWidth
FormHeight = Me.WindowHeight
DoCmd.Restore
DoCmd.MoveSize 0, 0, FormWidth, FormHeight

End Sub

作者: 咱家是猫 时间: 2008-8-1 14:32
两种方法都不好.

作者: Grant 时间: 2008-8-1 14:35
呵呵~关于这个问题我还没写成文章呢

作者: 咱家是猫 时间: 2008-8-1 14:42
呵呵,GG,把你那个方案帖上来.我支持你.

作者: Trynew 时间: 2008-8-1 14:53
这个贴子写到一半的时候，不知道点了一下那个按钮，一下子不见了，便另写了半条帖子并附上解决方案。没想到竟自己贴了出来，还这么快有了答复，也好，希望大家就此探讨一下。Grant是否也有一个解决方案？

我的一个解决办法：http://www.office-cn.net/forum.p ... 3407&highlight=

作者: 咱家是猫 时间: 2008-8-1 15:13
在程序启动过程中
Call HidenRestoreButton

Function HidenRestoreButton()
'利用一个空的菜单栏-"NullMenu"夺取菜单栏上的几个小按钮(最小化,还原,关闭)后,隐藏之
On Error Resume Next
Application.CommandBars("NullMenu").Enabled = True
Application.CommandBars("NullMenu").Visible = True
DoCmd.Maximize
Application.CommandBars("NullMenu").Enabled = False
End Function

复制代码

作者: ui 时间: 2008-8-1 16:50
用API以可以实现!!

作者: apsfxc1 时间: 2008-8-6 16:42
学习[:30]

作者: xaxxax 时间: 2009-3-30 15:33
两种方法都不好.

作者: 唐玉娥 时间: 2009-5-1 01:41
再扶持一下

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