CommandBar介绍-工具栏

1、CommandBar 介绍 -工具栏CommandBar 介绍 -工具栏2009 年 2 月 21 日 评论 发表评论接着介绍 CommandBar 的三个类型之一，工 具栏。工具栏 法，除了需要指定 Name 属性之外，可以接受其它所有的默 认属性值。可以通过 Position 属性指定工具栏显示的位置。创建工具栏很简单，直接使用CommandBars 集合的 Add 方Position 属性的值由 msoBarPosition 常数指定。msoBarLeft: 0 ，工具栏显示在工作表左边msoBarTop: 1 ，工具栏显示在工作表上边msoBarRight: 2 ，工具栏显示在工作表右

2、边msoBarBottom: 3 ，工具栏显示在工作表下边msoBarFloating: 4 ，工具栏浮动显示msoBarMenuBar: 5 ，这个常数表示创建菜单栏，不用于创建 工具栏msoBarPopup: 6，这个常数表示创建弹出菜单例如下面的代码创建名称为 “Custom Toolbar”的位于工作表区域上边的工具栏。Set newTool = CommandBars.Add(Name:=Custom Toolbar,Position:=msoBarTop) 创建好 CommandBar 对象后，可以使用 它的 Controls 集合的 Add 方法添加控件，

3、 也就是工具命令栏。可以通过 Add 方法参数中的 Type 属性指定命令栏的类型。Type 属性由 msoControlType 常数指定。msoControlButton ： 1，普通按钮类型 msoControlEdit ： 2，编辑框类型 msoControlDropdown ： 3，复合框类型，不能输入新项目 msoControlComboBox ：4，和 DropDown 一样的复合框类型， 允许输入新项目msoControlPopup ： 10，弹出菜单如果在 Add 方法中指定 ID 属性的值， 可以创建内置命令栏， 例如设置 id:=3 则创建 “ 保存 R

4、21;命令栏，不需要知道 OnAction 属性，点击该命令栏将执行默认保存命令。还可以设置命令栏的Style属性。Style属性由msoButtonStyle或 msoComboStyle 常数指定。msoButtonStyle 常数：msoButtonAutomatic ： 0，默认值，对于菜单栏，等于 msoButtonIconAndCaption ，对于工具栏， 等于 msoButtonIcon msoButtonCaption ： 2，只显示标题，忽略图标 msoButtonIcon ： 1，在工具栏上只显示图标，在菜单栏上只显示标题msoButtonIconAndCaption ：

5、 3，显示图标，并在图标右边显 示标题msoButtonIconAndCaptionBelow ： 7，对于菜单栏，等同于 msoButtonIconAndCaption ，对于工具栏，在图标下方显示标msoButtonWrapCaption ：14 ，同 msoButtonCaption 类似，只 是如果标题太长时分行显示msoComboStyle 常数：msoComboLabel ： 1，左边有标题 msoComboNormal ：0，没有标题 如果命令栏的 Type 属性设置为 msoControlComboBox ，该命 令栏可以使用 ComboBox 控件的各种方法和属性，例如Add

6、Item 方法、 Clear 方法等。如果创建时设置了 Caption 属 性为“请选择 :” ，则可以使用 Controls(”请选择:”) 来表示该复合框命令栏。例如下面的代码：With CommandBars(Custom Toolbar).Controls( 请选择 :)面是一个创建工具栏的完整例子。Sub CreateToolBar()Dim newTool As CommandBarDim i As Integer 如果发现有相同工具栏，删除该工具栏On Error Resume NextCommandBars(Custom Tool

7、bar).DeleteOn Error GoTo 0添加名称为 “Custom Toolbar” 的工具栏，并在 工作表上方显示Set newTool = CommandBars.Add(Name:=CustomToolbar, Position:=msoBarTop)With newTool .Visible = TrueWith .Controls.Add(Type:=msoControlButton) .Caption = 复制 .Style = msoButtonIconAndCaption .TooltipText = 复制文件 .FaceId = 18 .O

8、nAction = HandleToolEnd WithWith .Controls.Add(Type:=msoControlButton, ID:=3) .Caption = 保存 .BeginGroup = True .Style = msoButtonIconEnd WithWith .Controls.Add(Type:=msoControlEdit) .Caption = 输入:.BeginGroup = True .Style = msoButtonIcon .TooltipText = 在此输入数据 .OnAction = HandleTextEnd WithWith .Cont

9、rols.Add(Type:=msoControlComboBox) .Caption = 请选择 : .BeginGroup = True .Style = msoComboLabel .TooltipText = 请选择所需项目 .AddItem Apple .AddItem Banana .AddItem Orange .ListIndex = 1 .OnAction = HandleComboEnd WithEnd WithEnd SubSub ExecuateCombo()With CommandBars(Custom Toolbar).Controls( 请选择 :)MsgBox

10、.ListCountIf .List(1) = Apple Then .ExecuteEnd IfEnd WithEnd SubSub HandleCombo()Dim sCall As String sCall = CommandBars.ActionControl.TextMsgBox 你选择了 : & sCall, vbInformationEnd SubSub HandleText()Dim sCall As String sCall = CommandBars.ActionControl.TextMsgBox 你输入了 : & sCall, vbInformationEnd SubSub HandleTool()Dim sCall As String sCall = CommandBars.ActionControl.CaptionMsgBox 你点击了 : & sCall, vbInformationEnd SubSub RemoveToolBar()On Error Resume NextCommandBars(Custom Toolbar).DeleteEnd Sub运行 CreateToolBar 过程，将在工作表上方创建一个自定义工 具栏，如下图： 示例文