Access VBA教程:程序工具栏和菜单栏

Microsoft Access 中包含命令栏,即可编程的工具栏和菜单栏。通过命令栏可以为应用程序创建自定义工具栏和菜单。

只有设置对 Microsoft Office对象库的引用后,才能对命令栏进行编程。为此,可在模块的“设计”视图中,单击“工具”菜单上的“引用”,并选中“Microsoft Office Object Library”复选框。

CommandBars集合包含应用程序中已有的所有命令栏。使用 CommandBars集合的 Add方法,可以向 CommandBars集合中添加 CommandBar对象。例如,下面的代码可用来新建一个名为 MyCommandBar 的命令栏。请注意,要看到整个新添加的命令栏,需要将它的 Visible属性设为 True。


Dim cmb As CommandBar
Set cmb = Application.CommandBars.Add("MyCommandBar")
cmb.Visible = True

每个 CommandBar对象都有一个 CommandBarControls集合,该集合包含命令栏上的所有控件。命令栏控件不同于窗体上的控件。可以创建多种类型的命令栏控件,包括按钮、组合框和弹出式菜单,并使用这些命令栏控件创建自定义工具栏或菜单栏。

若要引用 CommandBarControls集合,可以使用 CommandBar对象的 Controls属性。要向命令栏上添加控件,可使用 CommandBarControls集合的 Add方法,并指定所要创建的控件类型。下面的示例用于向前一个示例所创建的命令栏中添加一个新的按钮:


Dim cbc As CommandBarControl
Set cbc = cmb.Controls.Add(msoControlButton)
cbc.Caption = "Button1"
cbc.Style = msoButtonCaption

可以指定用户单击命令栏控件时要计算的表达式或要运行的宏。请将 OnAction 设为宏的名称,或设为包含内置函数或用户定义函数的表达式。例如,下面的代码行将 CommandBarControl对象的 OnAction属性设为包含 MsgBox函数的表达式。其中使用了前两个示例中创建的 CommandBar 和 CommandBarControl对象。


CommandBars("MyCommandBar").Controls("Button1").OnAction = "=MsgBox(""Wow!"")"

注意   与 Microsoft Access 中其他大部分集合不同,CommandBars集合及其包含的所有集合都从 1(而不是从 0)开始编制索引。

上页:Access VBA教程:含有类模块的程序 下页:Access VBA教程:查询字段

Access VBA教程:程序工具栏和菜单栏

Access VBA教程:查询字段 Access VBA教程:报表
Access VBA教程:报表节 Access VBA教程:范围和对象命名的兼容性
Access VBA教程:设置对其他 Microsoft Access 数据库或项目中的 Visual Basic 工程的引用 Access VBA教程:设置对类型库的引用
Access VBA教程:Snapshot Viewer 控件 Access VBA教程:“排序与分组”框
Access VBA教程:字符串函数运算的差异 Access VBA教程:表
Access VBA教程:表字段 Access VBA教程:在 Microsoft Access 2002 中使用枚举常量
Access VBA教程:Microsoft Access 常量概述 Access VBA教程:操作查询
Access VBA教程:ActiveX 控件(窗体) Access VBA教程:了解 ActiveX 控件(数据访问页)
Access VBA教程:绑定控件 Access VBA教程:绑定范围控件
Access VBA教程:绑定超链接控件 Access VBA教程:绑定对象框控件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号