Office学院加入收藏

Access

您现在的位置： Office学院 - Access - 用VBA代码处理菜单和工具栏之三

用VBA代码处理菜单和工具栏之三

添加记录: 用VBA代码处理菜单和� 类别: Access 发布日期: 2007.03.05

-------------------郑家龙编绎于MS OFFICE开发文档

隐藏和显示菜单和工具栏

可以用CommandBar对象的Visible属性来隐藏和显示工具栏，当你显示一个工具栏的时候，你可以用Position属性来指定工具栏应该显示在屏幕的哪一个地方，例如，下面的一段程序需要三个参数，strCBarName表示要显示或隐藏的工具栏名称，blnVisible表示是隐藏还是要显示，可选参数lngPosition表示工具栏显示的位置，默认是显示在ACCESS窗口的上方，也可以显示在左、右或者是下方。

Function CBToolbarShow(strCBarName As String, _

blnVisible As Boolean, _

Optional lngPosition As Long = msoBarTop) As Boolean

' This procedure displays or hides the command bar specified in the

' strCBarName argument according to the value of the blnVisible

' argument. The optional lngPosition argument specifies where the

' command bar will appear on the screen.

Dim cbrCmdBar As CommandBar

On Error GoTo CBToolbarShow_Err

Set cbrCmdBar = Application.CommandBars(strCBarName)

' Show only toolbars.

If cbrCmdBar.Type > msoBarTypeNormal Then

CBToolbarShow = False

Exit Function

End If

' If Position argument is invalid, set to the default

' msoBarTop position.

If lngPosition < msoBarLeft Or lngPosition > msoBarMenuBar Then

lngPosition = msoBarTop

End If

With cbrCmdBar

.Visible = blnVisible

.Position = lngPosition

End With

CBToolbarShow = True

CBToolbarShow_End:

Exit Function

CBToolbarShow_Err:

CBToolbarShow = False

Resume CBToolbarShow_End

End Function

要显示一个菜单栏，可以参考以下的一个函数来实现：

Function CBMenuBarShow(strCBarName As String) As Boolean

' 本函数可以显示一个指定的菜单栏，如果指定的菜单栏不存在或者是非法的名称，将返回FALSE

Dim cbrCBarMenu As CommandBar

On Error GoTo CBMenuBarShow_Err

Set cbrCBarMenu = Application.CommandBars(strCBarName)

If cbrCBarMenu.Type <> msoBarTypeMenuBar Then

CBMenuBarShow = False

Exit Function

End If

With cbrCBarMenu

.Visible = True

End With

CBMenuBarShow = True

CBMenuBarShow_End:

Exit Function

CBMenuBarShow_Err:

CBMenuBarShow = False

Resume CBMenuBarShow_End

End Function

调用方法：? CBMenuBarShow ("Menu Bar")’显示已被隐藏的主菜单。

上一篇：用VBA代码处理菜单和工具栏之二
下一篇：用VBA代码处理菜单和工具栏之四

Tags: Access Office 窗口函数菜单

相关信息

用VBA代码处理菜单和工具栏之二

用VBA代码处理菜单和工具栏之一

[lwwvb]一个比速达3000都要好用的计工资软件

[分享]适应不同分辩率让窗体内控件居中

利用追加查询来实现自增序号的示例

[荐]成功　自信　快乐

用ADO大量修改SQL SEVER表数据时采用进度显示

首届微软最有价值专家校园技术日在北京举行

利用Access对金税开票系统进行二次开发

[FAQ]如何对子窗体某个列数据求和

[下载]微软MVP高校技术教育大会Access讲稿

[示例]往Word文件中写入指定位置的数据

[FAQ]如何恢复隐藏对象

[直播]如何用Access开发一个成品软件

用VBA将报表输出为单一文件

用VBA代码处理菜单和工具栏之四

用VBA代码处理菜单和工具栏之五

Access学习方法总结

＂+"和＂＆＂到底有什么区别

微软Access现状(Microsoft Access Today)

欢迎参加ACCESS编程在线培训(免费)

第一届《街道之星》评选申请活动开始

[LWWVB教程]设计表的精义(第5课)

如何让用户看不出程序是用ACCESS编写的

助记码输入内容提高录入速度

第一届《街道之星》评选揭晓

一个自定义函数来分离字符串的方法

获取代码编写帮助的方法

专注----由聊天所想到的

生日密码
血型分析
生肖分析

制作单位 Office学院 © 版权所有

联系我们关于我们友情链接站点地图免责声明

Office学院,致力于打造专业的OFFICE应用交流平台。