关于向工具栏添加新的工具栏按钮 （VBA/ActiveX）

若要向工具栏添加新的工具栏按钮，请使用该方法。此方法创建一个新对象并将其添加到指定的工具栏。AddToolbarButtonToolbarItem

仅应在工具栏可见时向工具栏添加按钮。

该方法将五个参数作为输入：索引、名称、帮助字符串、宏和浮出控件按钮。AddToolbarButton

指数

Index参数是一个整数，它指定新项在工具栏中的位置。索引以位置零 （0） 开头，作为标题后工具栏上的第一个位置。若要将新工具栏按钮添加到工具栏的末尾，请将 Index 参数设置为等于工具栏的属性。（工具栏的属性表示该工具栏上的工具栏按钮总数。ToolbarCountCount

创建工具栏按钮后，无法通过 Index 属性更改按钮的索引。若要更改现有工具栏按钮的索引，必须删除工具栏按钮并将其重新添加到其他位置，或者添加或删除周围的工具栏按钮，直到实现正确的放置。

名字

名称是标识工具栏按钮的字符串。字符串必须包含字母数字字符，除短划线 （-） 或下划线 （_） 外没有标点符号。当光标放在工具栏按钮上时，此字符串将显示为工具提示。

创建工具栏按钮后，可以使用Name参数更改名称。

帮助字符串

帮助字符串是当用户突出显示菜单项以供选择时显示在 AutoCAD 状态行中的文本字符串。

创建工具栏按钮后，可以使用HelpString参数更改按钮的帮助字符串。

宏观

宏是一系列命令，用于在选择工具栏按钮时执行特定操作。工具栏宏可以只是完成任务的击键记录，也可以是命令、AutoLISP、DIESEL 或 ActiveX 编程代码的复杂组合。

创建工具栏按钮后，可以使用Macro参数更改按钮的宏。

浮出控件按钮

FlyoutButton参数是一个可选标志，指示新按钮是否为浮出控件按钮。如果新按钮是弹出按钮，则必须将此参数设置为 TRUE。如果新按钮不是浮出控件按钮，则可以将此参数设置为 FALSE，也可以忽略此参数。

Sub Ch6_AddButton()
 Dim currMenuGroup As AcadMenuGroup
 Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

 ' Create the new toolbar
 Dim newToolbar As AcadToolbar
 Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")

 ' Add a button to the new toolbar
 Dim newButton As AcadToolbarItem
 Dim openMacro As String

 ' Assign the macro the VB equivalent of "ESC ESC _open "
 openMacro = Chr(3) + Chr(3) + "_open "
 Set newButton = newToolbar.AddToolbarButton _
 ("", "NewButton", "Open a file.", openMacro)
End Sub