Para añadir un nuevo botón de herramienta a una barra de herramientas, utilice el método AddToolbarButton. Este método crea un objeto ToolbarItem nuevo y lo añade a la barra de herramientas indicada. Sólo debe añadir botones a una barra de herramientas mientras ésta esté visible.
El método AddToolbarButton requiere cinco parámetros de entrada: Index, Name, HelpString, Macro y FlyoutButton.
- Index
-
El parámetro Index es un número entero que determina la posición del nuevo elemento de Toolbar en la barra de herramientas. El índice comienza por la posición cero (0), que corresponde al primer puesto en la barra de herramientas después del título. Para añadir el nuevo botón al final de una barra de herramientas, asigne al parámetro Index el valor de la propiedad Count de la barra de herramientas. (La propiedad Count de la barra de herramientas representa el número total de botones que contiene.)
Una vez creado un botón de barra de herramientas, su índice no se puede cambiar con la propiedad Index. Para cambiar el número de índice de un botón de barra de herramientas existente, debe eliminar y volver a añadir el botón en una posición diferente, o añadir o eliminar los botones que lo rodean hasta obtener la posición correcta.
- Name
-
Un nombre es una cadena identificativa del botón de barra de herramientas. La cadena debe estar formada por caracteres alfanuméricos, sin más signos de puntuación que un guión (–) o un subrayado (_). Esta cadena se muestra como una pista cuando el cursor se sitúa sobre el botón de herramienta.
Una vez creado un botón de barra de herramientas, se puede cambiar su nombre con el parámetro Name.
- HelpString
- Macro
-
Una macro es una serie de comandos que ejecutan acciones específicas cuando se selecciona un botón. Las macros de barras de herramientas pueden ser registros simples de pulsaciones de teclas que efectúen una tarea o una combinación compleja de comandos y código de programación de lenguaje DIESEL.
Una vez creado un botón de barra de herramientas, se puede cambiar su macro con el parámetro Macro.
- FlyoutButton
Adición de botones a una barra de herramientas nueva
Este ejemplo crea una barra de herramientas nueva y le añade un botón. El botón se asigna a una macro que ejecuta el comando OPEN cuando se pulsa el botón.
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