屏蔽菜单栏上的还原和关闭按钮

Trynew

我们经常会在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

咱家是猫

两种方法都不好.

Grant

呵呵~关于这个问题我还没写成文章呢

咱家是猫

呵呵,GG,把你那个方案帖上来.我支持你.

Trynew

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

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

咱家是猫

在程序启动过程中
Call HidenRestoreButton

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

复制代码

ui

用API以可以实现!!

apsfxc1

学习[:30]

xaxxax

两种方法都不好.

唐玉娥

再扶持一下