|
本帖最后由 盗梦 于 2014-8-23 09:10 编辑
最近,看到有人在问如何隐藏菜单栏。我在这里总结一下。这个菜单栏分两种:
一种是旧版本的菜单栏(2003版本,及更早的版本);
另一种是高版本的菜单栏,专业点的叫法是 Ribbon(2007版本,及之后更高的版本)。
设置菜单栏,可以用Docmd.ShowToolbar的方法。
而两种菜单栏在Access中是两个不同的对象,所以代码有区别。
旧版本:Docmd.ShowToolbar "Menu Bar",acToolbarNo 'acToolbarNo 是隐藏工具栏,显示用acToolbarYes
高版本:Docmd.ShowToolbar "Ribbon",acToolbarNo
当然,我们还可以把这两个写成一个通用的函数,可以隐藏和显示工具栏:
- '-函数名:ShowMenuBar
- '-作 用:设置隐藏或显示菜单栏,兼容Access各个版本
- '-参 数:blnShow:布尔值,是否显示菜单栏
- '-返回值:布尔值,设置成功返回True;反之,返回False
- '-其 他:作者:盗梦;创建日期:2014/08/16
- Public Function ShowMenuBar(blnShow As Boolean) As Boolean
- Dim intShow As Integer '根据blnShow,设置ShowToolbar第二个参数
- Dim strToolName As String '工具栏的名字
-
- '根据参数,设置是否可见
- intShow = IIf(blnShow, acToolbarYes, acToolbarNo)
- '根据Access版本,设置菜单栏的名字(2003版本号是11)
- strToolName = IIf(Access.Version <= 11, "Menu Bar", "Ribbon")
-
- '执行设置
- On Error Resume Next
- DoCmd.ShowToolbar strToolName, intShow
- If Err = 0 Then ShowMenuBar = True '没有错误,说明执行成功
- End Function
复制代码
觉得有帮助的话,就回帖顶一下。嘻嘻。有什么更好的方法,也讨论讨论。[握手] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|