Sub Example_LargeButtons()
    ' Этот пример использует MenuGroups, чтобы получить справочник к
    ' главному меню AutoCADа.
    ' Затем создает новую Панель инструментов (TestMenu) и вставляет
    ' ToolBarButton. Затем заставляет свойство LargeButtons изменять
    ' видимый стиль всех системных Панелей инструментов
    
    Dim CurrSize As Boolean, ButtonSize As String
    Dim Toolbars As AcadToolbars

    Set Toolbars = ThisDrawing.Application.MenuGroups("ACAD").Toolbars
   
    'Получите текущий размер
    CurrSize = Toolbars.LargeButtons
    
    'Покажите текущий размер Панели инструментов
    GoSub DISPLAY
   
    'Переключите размер Панели инструментов
    Toolbars.LargeButtons = Not (Toolbars.LargeButtons)
    
    'Покажите текущий размер Панели инструментов
    GoSub DISPLAY
    
    'Сбросьте к оригинальному значению
    Toolbars.LargeButtons = CurrSize
    
    'Покажите текущий размер Панели инструментов
    GoSub DISPLAY

    Exit Sub
    
DISPLAY:
    'Стиль кнопки отображения
    ButtonSize = IIf(Toolbars.LargeButtons, "большие", "нормальные")
    MsgBox "Мы отображаем " & ButtonSize & " кнопки.", vbInformation

    Return
End Sub

Сайт управляется системой uCoz