Las barras de herramientas pueden establecerse como fijas o flotantes mediante programación.
Para que una barra de herramientas sea flotante, utilice el método Float de la barra. El método Float requiere la entrada de tres parámetros: Top, Left y NumberFloatRows. Los parámetros Top y Left especifican la ubicación, en píxeles, de los bordes superior e izquierdo de la barra de herramientas. El parámetro NumberFloatRows especifica el número de filas con que se crea una barra de herramientas horizontal. Este número debe ser igual o mayor que uno. Los botones de la barra de herramientas se distribuyen de forma equidistante a lo largo del número de filas indicado. En las barras de herramientas alineadas en sentido vertical, este valor especifica el número de columnas.
Para anclar una barra de herramientas, utilice el método Dock de la barra. El método Dock requiere tres parámetros de entrada: Side, Row y Columna. El parámetro Side determina el lado de la barra de herramientas que se situará en la maniobra de anclaje. Puede especificar el lado superior, inferior, izquierdo o derecho de la barra de herramientas. Los parámetros Row y Column determinan el número de fila y columna de las barras de herramientas ancladas donde se anclará la barra de herramientas.
Puede consultar una barra de herramientas para saber si es fija mediante la propiedad DockStatus. La propiedad DockStatus devolverá TRUE si la barra de herramientas está anclada y FALSE si es flotante.
Anclaje de una barra de herramientas
Este ejemplo crea una barra de herramientas nueva con tres botones. Después se muestra la barra de herramientas y se ancla a la izquierda de la pantalla.
Sub Ch6_DockToolbar()
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 three buttons to the new toolbar.
' All three buttons will have the same macro attached.
Dim newButton1 As AcadToolbarItem
Dim newButton2 As AcadToolbarItem
Dim newButton3 As AcadToolbarItem
Dim openMacro As String
' Assign the macro the VB equivalent of "ESC ESC _open "
openMacro = Chr(3) + Chr(3) + "_open "
Set newButton1 = newToolbar.AddToolbarButton _
("", "NewButton1", "Open a file.", openMacro)
Set newButton2 = newToolbar.AddToolbarButton _
("", "NewButton2", "Open a file.", openMacro)
Set newButton3 = newToolbar.AddToolbarButton _
("", "NewButton3", "Open a file.", openMacro)
' Display the toolbar
newToolbar.Visible = True
' Dock the toolbar to the left of the screen.
newToolbar.Dock acToolbarDockLeft
End Sub