Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лекция ППП 2012.doc
Скачиваний:
4
Добавлен:
01.05.2025
Размер:
2.6 Mб
Скачать

Коллекция CommandBarControls

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

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

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

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

Sub Examp() Dim MyBar As CommandBar Dim MyButton As CommandBarButton

Set MyBar = CommandBars.Add() Set MyButton = MyBar.Controls.Add(msoControlButton) MyBar.Visible = True End Sub

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

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

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

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

Объект CommandBarControl

Объект CommandBarControl предоставляет доступ ко всем элементам управления панели команд. Каждый объект CommandBarControl является элементом коллекции CommandBarControls.

Все свойства и методы, которые имеет объект CommandBarControl, также имеют и объекты CommandBarButton, CommandBarComboBox и CommandBarPopup.

В случае объявления в программе переменной типа CommandBarControl, ей можно присвоить ссылку на объекты CommandBarButton, CommandBarComboBox и CommandBarPopup.

Свойства объекта CommandBarControl

Свойство

Описание

BeginGroup

Позволяет начать группу элементов управления на панели команд, начиная с данного, при задании данному свойству значения True

Caption

Определяет текст заголовка элемента управления панели команд. Для свойства TooltipText значение данного свойства является значением по умолчанию

Index

Возвращает порядковый номер объекта в коллекции. Первый элемент управления панели команд в коллекции CommandBarControls имеет номер 1. Разделители не включаются в коллекцию CommandBarControls

OnAction

Определяет имя макроса или функции Visual Basic, которая будет выполнена при нажатии на элементе управления или изменении его значения

Parameter

Определяет строку, которую может использовать приложение для выполнения команды при нажатии на элементе управления панели команд. Эта строка может быть, например, параметром функции, определенной свойством OnAction. С помощью данного свойства можно изменить поведение встроенного элемента управления. Для этого ему необходимо присвоить соответствующее значение

Priority

Определяет приоритет элементов управления панелей команд в том случае, если элементы управления не помещаются на одной строке. Допустимыми значениями данного свойства являются числа в диапазоне от 0 до 7. Если значение этого свойство равно 1, то элемент управления не может быть удален с панели команд. При этом все остальные значения данного свойства игнорируются. Обратите внимание, что данное свойство используется только для элементов управления панелей инструментов и не применимо для пунктов меню

TooltipText

Определяет текст экранной подсказки, отображаемой для элемента управления панели команд. По умолчанию в качестве значения данного свойства используется значение свойства Caption

Type

Определяет тип элемента управления панели команд. Значение данного свойства должно равняться одной из констант, определяющих тип элемента управления (msoControlType)