设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 14040|回复: 19
打印 上一主题 下一主题

[Access本身] 【Access技巧】隐藏菜单栏

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2014-8-16 09:13:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 盗梦 于 2014-8-23 09:10 编辑

最近,看到有人在问如何隐藏菜单栏。我在这里总结一下。这个菜单栏分两种:
一种是旧版本的菜单栏(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. Public Function ShowMenuBar(blnShow As Boolean) As Boolean
  7.     Dim intShow As Integer      '根据blnShow,设置ShowToolbar第二个参数
  8.     Dim strToolName As String   '工具栏的名字
  9.    
  10.     '根据参数,设置是否可见
  11.     intShow = IIf(blnShow, acToolbarYes, acToolbarNo)
  12.     '根据Access版本,设置菜单栏的名字(2003版本号是11)
  13.     strToolName = IIf(Access.Version <= 11, "Menu Bar", "Ribbon")
  14.    
  15.     '执行设置
  16.     On Error Resume Next
  17.     DoCmd.ShowToolbar strToolName, intShow
  18.     If Err = 0 Then ShowMenuBar = True '没有错误,说明执行成功
  19. End Function
复制代码


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏4 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2014-8-16 10:23:54 | 只看该作者
好。经典之作

点击这里给我发消息

3#
 楼主| 发表于 2014-8-16 10:25:30 | 只看该作者

多谢夸奖
4#
发表于 2014-8-16 11:47:46 | 只看该作者
点个"赞"
5#
发表于 2014-8-16 22:30:22 | 只看该作者
还没入门,先点个赞
6#
发表于 2014-8-17 10:05:28 | 只看该作者
已测试,学习了
7#
发表于 2014-8-23 07:57:22 | 只看该作者
如果能配有图片说明就更好了呵呵

点击这里给我发消息

8#
 楼主| 发表于 2014-8-23 09:10:48 | 只看该作者
zwp 发表于 2014-8-23 07:57
如果能配有图片说明就更好了呵呵

图片已附上
9#
发表于 2014-8-23 09:23:12 | 只看该作者

真是认真的人呀,赞。这样大家就明白了呵呵。
10#
发表于 2014-10-28 07:38:49 来自手机 | 只看该作者
还在学习中,没入门了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 00:49 , Processed in 0.080634 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表