|
-------------------郑家龙编绎于MS OFFICE开发文档
创建菜单和工具栏
你可以用自定义的对话框或VBA在任何一个OFFICE组件应用程序中创建工具栏（菜单栏）。在Access中，你也可以在现有的工具栏上右击，然后在出现的弹出式菜单中选择自定义来创建或修改已有的工具栏，不管怎样，你可以用VBA在任何一个OFFICE组件应用程序中来创建它工具栏。
用CommandBars集合中的Add方法可以创建一个新的工具栏，但是Add方法默认的是创建一个工具栏，如果要创建一个新的菜单栏或者是弹出式菜单栏，你可以用msoBarPopup 和msoBarMenuBar常数在Add方法的指定位置指是创建这两种形式的工具栏。
下面的示例代码说明了如何分别创建这三种类型的工具栏：
Dim cbrCmdBar As CommandBar
Dim strCBarName As String
'创建工具栏
strCBarName = "MyNewToolbar"
Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName)
'创建菜单栏
strCBarName = "MyNewMenuBar"
Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarMenuBar)
'创建弹出式菜单栏
strCBarName = "MyNewPopupMenu"
Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarPopup)
创建好三种工具栏中的任一种后，必需在工具栏上面加入实际的命令按钮才有意义，否则它是没有什么作用的，关于如果在工具栏上增加各种类型的按钮，请参考以后的“菜单和工具栏的使用-增加命令控件”专题。
|
