Definici髇 de los s韒bolos de botones de barras de herramientas

previous page next page

Adición de separadores a una barra de herramientas

Creación y modificación de barras de herramientas

Creación de barras de herramientas desplegables

Manual del desarrollador de ActiveX y VBA > Personalización de barras de herramientas y menús > Creación y modificación de barras de herramientas >

Definición de los símbolos de botones de barras de herramientas

Para definir las imágenes que se desean utilizar en cada botón de una barra de herramientas, utilice los métodos SetBitmaps y GetBitmaps.

El método SetBitmaps requiere dos parámetros: SmallIconName y LargeIconName.

SmallIconName: El nombre del icono pequeño define la cadena de identificación del recurso de imagen pequeña (mapa de bits de 16×15). Esta cadena debe estar compuesta por caracteres alfanuméricos, sin más signos de puntuación que un guión (–) o subrayado (_) y debe incluir la extensión .bmp. El recurso puede ser un mapa de bits del sistema o un mapa de bits definido por el usuario. Los mapas de bits definidos por el usuario deben tener el tamaño apropiado y deben estar ubicados en la ruta Support.
LargeIconName: El nombre del icono grande define la cadena de identificación del recurso de imagen grande (mapa de bits de 24×22). Esta cadena debe estar compuesta por caracteres alfanuméricos, sin más signos de puntuación que un guión (–) o subrayado (_) y debe incluir la extensión .bmp. El recurso puede ser un mapa de bits del sistema o un mapa de bits definido por el usuario. Los mapas de bits definidos por el usuario deben tener el tamaño apropiado y deben estar ubicados en la ruta Support.

Consulta de una barra de herramientas para obtener el nombre de los iconos de los botones

Sub Ch6_GetButtonImages()

    Dim Button As AcadToolbarItem

    Dim Toolbar0 As AcadToolbar

    Dim MenuGroup0 As AcadMenuGroup

    Dim SmallButtonName As String

    Dim LargeButtonName As String

    Dim msg As String

    Dim ButtonType As String

          ' Get the first toolbar in the first menu group
          Set MenuGroup0 = ThisDrawing.Application. _
                                       MenuGroups.Item(0)
          Set Toolbar0 = MenuGroup0.Toolbars.Item(0)
                ' Clear the string variables
          SmallButtonName = ""
          LargeButtonName = ""
                ' Create a header for the message box and
          ' display the toolbar to be queried
          msg = "Toolbar: " + Toolbar0.Name + vbCrLf
          Toolbar0.Visible = True
                ' Iterate through the toolbar and collect data
          ' for each button in the toolbar. If the toolbar is
          ' a normal button or a flyout, collect the small
          ' and large button names for the button.
          For Each Button In Toolbar0
              ButtonType = Choose(Button.Type + 1, "Button", _
                              "Separator", "Control", "Flyout")
              msg = msg & ButtonType & ": "
              If Button.Type = acToolbarButton Or _
                             Button.Type = acToolbarFlyout Then
                  Button.GetBitmaps SmallButtonName, _
                                    LargeButtonName
                  msg = msg + SmallButtonName + ", " _
                            + LargeButtonName
              End If
              msg = msg + vbCrLf
          Next Button
                ' Display the results
          MsgBox msg
      End Sub

previous page start next page