Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Postroenie_menyu_i_paneley_instrumentov_to_chto...doc
Скачиваний:
7
Добавлен:
17.11.2019
Размер:
3.05 Mб
Скачать

Коллекция 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

Соскальзывание

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]