Методы коллекции CommandBarControls

Свойства коллекции CommandBarControls

Листинг 1. Создание панели инструментов с добавлением на нее кнопки

Коллекция CommandBarControls

Коллекция CommandBarControLs предоставляет доступ ко всем элементам управления панелей команд. Чтобы получить доступ к коллекции CommandBarControLs конкретного объекта CommandBar, необходимо использовать свойство Controls этого объекта.

Для добавления на панель команд нового элемента управления используют метод Add этой коллекции.

В листинге 1 (см. здесь) приведен пример создания панели инструментов с последующим добавлением на нее кнопки.

Sub Examp() Dim MyBar As CommandBar Dim MyButton As CommandBarButton Set MyBar = CommandBars.Add() Set MyButton = MyBar.Controls.Add(msoControlButton) MyBar.Visible = TrueEnd Sub

В приведенном примере объявляются две переменные: MyBar типа CommandBar и MyButton типа CommandBarButton. Затем им присваиваются ссылки на созданную панель инструментов и кнопку панели инструментов соответственно. Последняя инструкция в этой процедуре делает созданную панель инструментов видимой.

Чтобы сослаться на конкретный элемент управления панели команд, являющийся членом коллекции CommandBarControls, можно использовать следующую инструкцию:

Set myControl = CommandBars(1).Controls(1)

Здесь для ссылки на конкретный элемент управления используется свойство Controls объекта CommandBar.

Коллекция CommandBarControls имеет следующие свойства:

1. Application.

2. Count.

3. Item.

4. Parent.

Коллекция CommandBarControls имеет всего один метод – Add.

Метод Add

Данный метод создает новый элемент управления и добавляет его в коллекцию элементов управления указанной панели команд. Его можно использовать для возвращения одного из следующих объектов: CommandBarButton, CommandBarComboBox или CommandBarPopup.

Синтаксис метода Add:

Expression.Add(Type, Id, Parameter, Before, Temporary)

Здесь

Expression – обязательный элемент – выражение, которое возвращает объект CommandBarControls;

Туре – необязательный элемент типа Variant. Определяет тип элемента управления, который будет добавлен. Значение данного параметра может быть равно одной из констант: msoControlButton, msoControlEdit, msoConlrolDropdown, msoControlComboBox или msoControlPopup;

Id – необязательный элемент, представляющий собой число типа Integer, которое определяет встроенный элемент управления. Если значение этого аргумента равно 1 или не задано, то будет добавлен пустой элемент управления;

Parameter – необязательный элемент. Для встроенных элементов управления этот аргумент используется приложением для выполнения команды. В случае пользовательских элементов управления этот аргумент предназначен для передачи информации процедурам или для хранения какой-нибудь специальной информации;

Before – необязательный элемент, являющийся числом, которое показывает позицию добавляемого элемента управления на панели команд. При этом добавляемый элемент управления будет установлен перед элементом управления, расположенным в позиции, определяемой этим аргументом. Если значение данного параметра не задано, то элемент управления устанавливается в конец панели команд;

Temporary – необязательный элемент. Определяет, является ли элемент управления временным (True) или постоянным (False). Временный элемент управления после закрытия приложения удаляется. По умолчанию значение этого элемента равно False.

Дата добавления: 2014-01-05