Информационный сайт

 

Реклама
bulletinsite.net -> Книги на сайте -> Программисту -> Васильев А. -> "VBA в Office 2000 учебный курс" -> 48

VBA в Office 2000 учебный курс - Васильев А.

Васильев А., Андреев А. VBA в Office 2000 учебный курс — Спб.: Питер, 2001. — 432 c.
ISBN 5-8046-0193-8
Скачать (прямая ссылка): vbauchebniykurs2001.djvu
Предыдущая << 1 .. 42 43 44 45 46 47 < 48 > 49 50 51 52 53 54 .. 154 >> Следующая

Для работы в VBA с меню, панелями инструментов и т. п. необходимо познакомиться с объектами и коллекциями, предназначенными для этого. Иерархия этих объектов представлена на рис. 5.1.
г- CommandBars (CommandBar)
I— CommandBarControls (CommahdBarControl)

CommandBarButton

CommandBarComboBox

CommandBarPopup
Рис. 5.1. Иерархия объектов для роботы с панелями инструментов и меню
Далее будут более подробно рассмотрены представленные на этом рисунке объекты и коллекции.
Коллекция CommandBars
Элементами коллекции CommandBars являются объекты CommandBar, которые представляют собой панель команд. Таким образом, коллекция CommandBars содержит все панели команд приложения.
Например, чтобы создать новую панель команд, можно выполнить следующую процедуру:
Set cbarl = CommandBa гs.Add(Name:="Customl",
Posi ti on :¦-msoBarFl oati ng) cbarl. Visible = True
Свойства коллекции CommandBars
В табл. 5.1 представлены свойства коллекции CommandBars. Во втором столбце указывается тип возвращаемого свойством значения, а в четвертом — доступность
128
Урок 5. Построение меню и панелей инструментов
свойства для записи. Если свойство недоступно для записи, то его значение нельзя задать в программе VBA.
Таблица 5.1. Свойства коллекции CommandBars
Свойство Тип Описание Запись
Application Object Позволяет сослаться на активный объект Application и его свойства. Каждый объект и коллекция в MS Access имеют данное свойства
ActionControl Object Возвращает объект CammandBarControl, значение свойства OnAction которого определяет запускоемую процедуру. Если процедура не была инициирована элементом управления панели команд, та эта свойства возвращает значение Nothing. Данное свойства можно испапьзавать, например, для проверки тога, какая из кнопок на панели инструментов была нажата
ActiveMenuBar Object Возвращает объект CammandBar, который представляет сабой активную строку меню приложения
AdaptiveMenus Boolean Определяет, явпяется ли меню адаптивным (True) или нет (False) X
Count Lang Возвращает капичества элементов калпекции (строк меню, панелей инструментов и контекстных меню)
DisplayFants Boolean Определяет способ отображения шрифта в списке Шрифт (Font). Если установлена значение True, та элементы списка отображаются тем шрифтам, который они и представляют X
DisplayTaalti ps Boolean Определяет, отображаются ли экранные подсказки элементов управпения панели команд: да (True) или нет (False). Обратите внимание, что в случае установки данного свойства в одном из приложений MS Office, оно будет оказывать немедленное воздействие но все открытые приложения MS Office, о также на все приложения MS Office, запущенные после этого X
Item Object Вазврощает объект CommandBar, являющийся элементам каплекции CommandBars, или объект CammandBarControl из коллекции CammandBarContrals. Синтаксис: Expressian.ltem(lndex), где Expression — обязательный элемент синтаксиса, представляющий выражение, которое возвращает объект CammandBar или объект CommandBarContral; Index — обязательный элемент синтаксиса типа Variant. Определяет имя или порядковый номер возвращаемого объекта в коллекции CommandBars
Объекты и коллекции, применяемые для работы с меню и панелями инструментов
129
Свойство
Тип
Описание
Запись
LdrgeButtons Boolean
MenuAnimatiari Long Style
Parent
Object
Определяет размер отображаемых кнопок понели инструментов: большего размера, чем нормальный (True) или нет (False)
Определяет тип анимации панели команд. Значение данного свойства должна равняться значению аднай из следующих констант: MsoMenuAnimation msoMenuAnimatianNane, msaMenuAnimationRandom, msoMenuAnimatianUnfald или msaMenuAnimatianSlide Возвращает ссылку на основной абьект, содержащий элемент управления, роздеп или ссылку на элемент управления, в котором содержатся другие элементы управления. Данное свойства доступно только для чтения. Для надписи значение свойства Parent является элементам управления, к которому присоединена надпись. Для фпажка, переключателя или выключателя, находящихся в группе, значением данного свойства будет имя группы, а для собственна группы — имя формы
Константы, определяющие способ отображения меню, представлены в табл. 5.2.
Таблица 5.2. Константы, определяющие тип анимации при отображении меню
Константа Описание
msaMenuAnimationNane Анимация отсутствует
msoMenuAnimationRandam Тип анимации выбирается случайным образам
msoMenuAnimationUnfald Развертывание
msoMenuAnimationSlide Соскапьзывание
Методы коллекции CommandBars
Коллекция CommandBars имеет четыре метода:
О Add О FindControl О FindControls О ReleaseFocus
Метод Add
Метод Add позволяет создать панель команд, которая автоматически добавляется в коллекцию CommandBars. Данный метод возвращает объект CommandBar. Синтаксис метода Add:
Expression.AddCName. Position. MenuBar. Temporary)
Элементы синтаксиса метода Add представлены в табл. 5.3.
5 За*. 69
130
Урок 5. Построение меню и панелей инструментов
Таблица 5.3. Элементы синтаксиса метода Add ; • - *• v * ¦- г • v ? * *
Предыдущая << 1 .. 42 43 44 45 46 47 < 48 > 49 50 51 52 53 54 .. 154 >> Следующая
Реклама
Авторские права © 2009 AdsNet. Все права защищены.
Rambler's Top100