技巧

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

菜单/工具栏

【Access技巧】-隐藏菜单栏

最近，看到有人在问如何隐藏菜单栏。我在这里总结一下。这个菜单栏分两种：
一种是旧版本的菜单栏（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

 

access数据库 

 

发布人:zstmtony  
分享到：
点击次数：  更新时间：2015-01-03 16:39:58  【打印此页】  【关闭】
上一条：引用Dll动态链接库或ocx控件的几种方法  下一条：VBA代码添加常见的DLL及控件OCX的引用


相关文章

热门文章

热门产品