Create Flyout Toolbars

From AutoCAD ActiveX

previous page next page

Define the Toolbar Button Image

Create and Edit Toolbars

Float and Dock Toolbars

Customize Toolbars and Menus > Create and Edit Toolbars >

Create Flyout Toolbars

To add a flyout toolbar button to a toolbar, use the AddToolbarButton method. This method creates a new ToolbarItem object and adds it to the designated toolbar.

The AddToolbarButton method takes five parameters as input: Index, Name, HelpString, Macro, and FlyoutButton. By setting the FlyoutButton parameter to TRUE, the new button will be created as a flyout button. The return value from this method will be the new flyout toolbar. The flyout toolbar can then be populated as a normal toolbar would be.

For more information about populating a toolbar, see Add New Toolbar Buttons to a Toolbar.

Create a flyout toolbar button

This example creates two toolbars. The first toolbar contains a flyout button. The second toolbar is attached to the flyout button on the first toolbar.

Sub Ch6_AddFlyoutButton()

 Dim currMenuGroup As AcadMenuGroup

 Set currMenuGroup = ThisDrawing.Application. _

 MenuGroups.Item(0)

       ' Create the first toolbar
       Dim FirstToolbar As AcadToolbar
       Set FirstToolbar = currMenuGroup.Toolbars. _
       Add("FirstToolbar")
             ' Add a flyout button to the first menu on the menu bar
       Dim FlyoutButton As AcadToolbarItem
       Set FlyoutButton = FirstToolbar.AddToolbarButton _
       ("", "Flyout", "Demonstrates a flyout button", _
       "OPEN", True)
             ' Create the second toolbar. This will be attached to
       ' the first toolbar through the flyout button.
       Dim SecondToolbar As AcadToolbar
       Set SecondToolbar = currMenuGroup.Toolbars. _
       Add("SecondToolbar")
             ' Add a button to the next 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 = SecondToolbar.AddToolbarButton _
       ("", "NewButton", "Open a file.", openMacro)
             ' Attach the second toolbar to the flyout
       ' button on the first toolbar
       FlyoutButton.AttachToolbarToFlyout currMenuGroup.Name, _
       SecondToolbar.Name
             ' Display the first toolbar, hide the second toolbar
       FirstToolbar.Visible = True
       SecondToolbar.Visible = False
      End Sub

previous page start next page