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