- •Построение меню и панелей инструментов
- •Плавающие меню и панели инструментов
- •Объекты и коллекции, применяемые для работы с меню и панелями инструментов
- •Коллекция CommandBars
- •Свойства коллекции CommandBars
- •Методы коллекции CommandBars
- •Объект CommandBar
- •Свойства объекта CommandBar
- •Методы объекта СommandBar
- •Коллекция CommandBarControls
- •Свойства коллекции CommandBarControls
- •Методы коллекции CommandBarControls
- •Объект CommandBarControl
- •Свойства объекта CommandBarControl
- •Методы объекта CommandBarControl
- •Метод Сору
- •Объект CommandBarButton
- •Свойства объекта CommandBarButton
- •Методы объекта CommandBarButton
- •Объект CommandBarComboBox
- •Свойства объекта CommandBarComboBox
- •Методы объекта CommandBarComboBox
- •Объект CommandBarPopup
- •Свойства объекта CommandBarPopup
- •Методы объекта CommandBarPopup
Коллекция CommandBars
Элементами коллекции CommandBars являются объекты CommandBar, которые представляют собой панель команд. Таким образом, коллекция CommandBars содержит все панели команд приложения.
Например, чтобы создать новую панель команд, можно выполнить следующую процедуру:
Set cbar1 = ComniandBars.Add(Name:="Customl",_
Position := msoBarFloating)
сbar1.Visible =True
Свойства коллекции CommandBars
В табл. 5.1 представлены свойства коллекции CommandBars. Во втором столбце указывается тип возвращаемого свойством значения, а в четвертом — доступность свойства для записи. Если свойство недоступно для записи, то его значение нельзя задать в программе VBA.
Таблица 5.1. Свойства коллекции CommandBars
Свойство |
Тип |
Описание |
Запись |
Application |
Object |
Позволяет сослаться на активный объект Application и его свойства. Каждый объект и коллекция в MS Access имеют данное свойство |
|
ActionControl |
Object |
Возвращает объект CommandBarControl, значение свойства OnAction которого определяет запускаемую процедуру. Если процедура не была инициирована элементом управления панели команд, то это свойство возвращает значение Nothing. Данное свойство можно использовать, например, для проверки того, какая из кнопок на панели инструментов была нажата |
|
ActiveMenuBar |
Object |
Возвращает обьект CommandBar, который представляет собой активную строку меню приложения |
|
AdaptiveMenus |
Boolean |
Определяет, является ли меню адаптивным (True) или нет (False) |
X |
Count |
Long |
Возвращает количество элементов коллекции (строк меню, панелей инструментов и контекстных меню) |
|
DisplayFonts |
Boolean |
Определяет способ отображения шрифта в списке Шрифт (Font). Если установлено значение True, то элементы списка отображаются тем шрифтом, который они и представляют |
X |
DisplayTooltips |
Boolean |
Определяет, отображаются ли экранные подсказки элементов управления панели команд: да (True) или нет (False). Обратите внимание, что в случае установки данного свойства в одном из приложений MS Office, оно будет оказывать немедленное воздействие на все открытые приложения MS Office, а также на все приложения MS Office, запущенные после этого |
X |
Item |
Object |
Возвращает обьект CommandBar, являющийся элементом коллекции CommandBars, или обьект CommandBarControl из коллекции CommandBarControls. Синтаксис: Expression. Item(Index), где Expression — обязательный элемент синтаксиса, представляющий выражение, которое возвращает обьект CommandBar или объект CommandBarControl; Index — обязательный элемент синтаксиса типа Variant. Определяет имя или порядковый номер возвращаемого объекта в коллекции CommandBars |
|
LargeButtons |
Boolean |
Определяет размер отображаемых кнопок панели инструментов: большего размера, чем нормальный (True) или нет (False) |
X |
MenuAnimation Style |
Long |
Определяет тип анимации панели команд. Значение данного свойства должно равняться значению одной из следующих констант: MsoMenuAnimalion msoMenuAnimalionNone, msoMenuAnimationRandom, msoMenuAnimationUnfold или msoMenuAnimationSlide |
Х |
Parent |
Object |
Возвращает ссылку на основной объект, содержащий элемент управления, раздел или ссылку на элемент управления, в котором содержатся другие элементы управления. Данное свойство доступно только для чтения. Для надписи значение свойства Parent является элементом управления, к которому присоединена надпись. Для флажка, переключателя или выключателя, находящихся в группе, значением данного свойства будет имя группы, а для собственно группы — имя формы |
|
Константы, определяющие способ отображения меню, представлены в табл. 5.2.
Таблица 5.2. Константы, определяющие тип анимации при отображении меню
Константа |
Описание |
msoMenuAnimationNone |
Анимация отсутствует |
msoMenuAnimationRandom |
Тип анимации выбирается случайным образом |
msoMenuAnimationUnfold |
Развертывание |
msoMenuAnimationSlide |
Соскальзывание |
