定义工具栏按钮图像

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

      
    ' 获取第一个菜单组中的第一个工具栏
      
    Set MenuGroup0 = ThisDrawing.Application. _
      
                                 MenuGroups.Item(0)
      
    Set Toolbar0 = MenuGroup0.Toolbars.Item(0)
      
      
    ' 清除字符串变量
      
    SmallButtonName = ""
      
    LargeButtonName = ""
      
      
    ' 创建消息框的标题并
      
    ' 显示要查询的工具栏
      
    msg = "Toolbar: " + Toolbar0.Name + vbCrLf
      
    Toolbar0.Visible = True
      
      
    ' 遍历工具栏并收集工具栏中
      
    ' 每个按钮的数据。如果工具栏是
      
    ' 普通按钮或弹出按钮，则收集按钮的
      
    ' 小按钮名称和大按钮名称。
      
    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
      
      
    ' 显示结果
      
    MsgBox msg
      
End Sub