【Access技巧】隐藏菜单栏

盗梦

最近，看到有人在问如何隐藏菜单栏。我在这里总结一下。这个菜单栏分两种：
一种是旧版本的菜单栏（2003版本，及更早的版本）；
另一种是高版本的菜单栏，专业点的叫法是 Ribbon（2007版本，及之后更高的版本）。

设置菜单栏，可以用Docmd.ShowToolbar的方法。
而两种菜单栏在Access中是两个不同的对象，所以代码有区别。
旧版本：Docmd.ShowToolbar "Menu Bar",acToolbarNo   'acToolbarNo 是隐藏工具栏，显示用acToolbarYes
高版本：Docmd.ShowToolbar "Ribbon",acToolbarNo

当然，我们还可以把这两个写成一个通用的函数，可以隐藏和显示工具栏：

1. '-函数名：ShowMenuBar
   
2. '-作  用：设置隐藏或显示菜单栏，兼容Access各个版本
   
3. '-参  数：blnShow：布尔值，是否显示菜单栏
   
4. '-返回值：布尔值，设置成功返回True；反之，返回False
   
5. '-其  他：作者：盗梦；创建日期：2014/08/16
   
6. 
   
7. Public Function ShowMenuBar(blnShow As Boolean) As Boolean
   
8.     Dim intShow As Integer      '根据blnShow，设置ShowToolbar第二个参数
   
9.     Dim strToolName As String   '工具栏的名字
   
10.    
    
11.     '根据参数，设置是否可见
    
12.     intShow = IIf(blnShow, acToolbarYes, acToolbarNo)
    
13.     '根据Access版本，设置菜单栏的名字（2003版本号是11）
    
14.     strToolName = IIf(Access.Version <= 11, "Menu Bar", "Ribbon")
    
15.    
    
16.     '执行设置
    
17.     On Error Resume Next
    
18.     DoCmd.ShowToolbar strToolName, intShow
    
19.     If Err = 0 Then ShowMenuBar = True '没有错误，说明执行成功
    
20. End Function

复制代码

觉得有帮助的话，就回帖顶一下。嘻嘻。有什么更好的方法，也讨论讨论。[握手]

linlancxh

好。经典之作

盗梦

linlancxh 发表于 2014-8-16 10:23
好。经典之作

多谢夸奖

offwhy2928

点个"赞"

yufj366

还没入门，先点个赞

prosys

已测试，学习了

zwp

如果能配有图片说明就更好了呵呵

盗梦

zwp 发表于 2014-8-23 07:57
如果能配有图片说明就更好了呵呵

图片已附上

zwp

盗梦 发表于 2014-8-23 09:10
图片已附上

真是认真的人呀，赞。这样大家就明白了呵呵。

cfedf

还在学习中，没入门了。