Office学院加入收藏

Office学院

Access

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

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

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

获取菜单和工具栏的信息

在所有的OFFICE组件应用程序中都包含有内置的工具栏，并且可以进行进一步的自定义显示相关命令，它们一共有三种类型：菜单栏，工具栏和弹出式菜单栏(本主题以工具栏代表三种类型来描述)。

你可以用下面的一段程序在立即窗口中显示它们的所有的工具栏以及工具栏上所包含的命令控件：

Function CBPrintCBarInfo(strCBarName As String) As Variant

' This procedure prints (to the Debug window) information

' about the command bar specified in the strCBarName argument

' and information about each control on that command bar.

Dim cbrBar As CommandBar

Dim ctlCBarControl As CommandBarControl

Const ERR_INVALID_CMDBARNAME As Long = 5

On Error GoTo CBPrintCBarInfo_Err

Set cbrBar = Application.CommandBars(strCBarName)

Debug.Print "CommandBar: " & cbrBar.Name & vbTab & "(" _

& CBGetCBType(cbrBar) & ")" & vbTab & "(" _

& IIf(cbrBar.BuiltIn, "Built-in", "Custom") & ")"

For Each ctlCBarControl In cbrBar.Controls

Debug.Print vbTab & ctlCBarControl.Caption & vbTab & "(" _

& CBGetCBCtlType(ctlCBarControl) & ")"

Next ctlCBarControl

CBPrintCBarInfo_End:

Exit Function

CBPrintCBarInfo_Err:

Select Case Err.Number

Case ERR_INVALID_CMDBARNAME

CBPrintCBarInfo = "'" & strCBarName & _

"' is not a valid command bar name!"

Case Else

CBPrintCBarInfo = "Error: " & Err.Number _

& " - " & Err.Description

End Select

Resume CBPrintCBarInfo_End

End Function

你可以在ACCESS的Visual Basic编辑器中的立即窗口中运行这个函数得到ACCESS所有的菜单或工具栏的命令按钮，例如，可以在立即窗口中键入以下命令：

? CBPrintCBarInfo(“Web”)

回车后你能在立即窗口中显示出Web工具栏所包含的所有命令集合，如下图：

740)this.width=740" border=undefined>

如果命令按钮的类型显示为“Popup”时，例如“收藏夹”这个命令它本身就是一个弹出式工具栏，你同样可以用本函数来得到它个每一个命令按钮的清单，如：

? CBPrintCBarInfo(“favorites”)

你可以用名称或集合索引来访问工具栏集合的每个工具栏，注意与其它集合不同的是所有集合索引都是从1开始的。

顶一下

上一篇：[lwwvb]一个比速达3000都要好用的计工资软件
下一篇：用VBA代码处理菜单和工具栏之二

Tags: Access Office 按钮窗口函数菜单

相关信息

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

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

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

[荐]成功　自信　快乐

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

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

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

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

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

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

[FAQ]如何恢复隐藏对象

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

微软Access现状(Microsoft Access Today)

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

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

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

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