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

AutoCAD ActiveX

 
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