Создание собственного головного меню

    Создание  собственного головного  меню

    Система меню Office 97 включает головную строку меню (menu bar), обычно расположенную в верхней части активного окна. Оно постоянно находится на экране. Изменяться это меню может при переходе к другому активному окну или по командам из программ на VBA. Каждая программа головного меню является именем вертикально расположенного меню, выпадающего при выборе этой команды. Команда такого меню может быть именем подменю (при этом она отмечается направленной вправо стрелкой). Подменю появляется на экране слева или справа от родительского меню, когда пользователь выбирает команду с его именем.

    Здесь в головном меню выбрана команда  Вид (View), а меню Вид – команда Панели инструментов (Toolbars), которая является именем соответствующего подменю. В подменю Панели инструментов выделена команда Настройка (Customize), которая будет неоднократно упоминаться далее, поскольку с её помощью можно производить многие действия, связанные с изменениями меню. Меню Вид называется родительским по отношению к подменю Панели инструментов, а меню Панели инструментов – дочерним по отношению к Вид. Вообще команды подменю тоже могут быть именами отдельных меню и т.д. Таким образом, меню приложений Office 97 образуют иерархичную структуру. Корень этой структуры – головное горизонтально расположенное меню, его непосредственными потоками являются выпадающие меню, заголовки которых образуют головное меню. Концевые вершины этой иерархии – непосредственно исполняемые команды, а пути от корня к вершинам проходят по заголовкам соответствующих меню и подменю.

    Согласно  существующим формальным и фактическим  стандартам проектирование интерфейса работа прикладной программы должна начинаться с активизации головного  меню, которое находится в верхней  части окна приложения. Собственное головное меню для прикладной системы Microsoft Access можно спроектировать, вызвав диалоговое окно Настройка (Curtomize), а для систем, базирующихся на Microsoft Excel, Word или PowerPoint, - используя VBA.

    В Microsoft Access можно спроектировать собственное головное меню визуально, используя для этого диалоговое окно Настройка. Для его вызова нужно в меню Вид выбрать команду Панели инструментов (Toolbars), а затем в появившемся подменю – команду Настройка.

    Новое меню создаётся так:

1. Щелкнуть кнопку Создать (New) на вкладке «Панели инструментов».
2. В появившемся окне «Создание панели инструментов» (New Toolbar) ввести имя создаваемого меню и щелкнуть кнопку Ok. На экране появится плавающее меню с заданным именем.
3. Щелчком кнопки Свойства (Properties) вывести на экран окно «Свойства панели инструментов» (Toolbar Properties).
4. Установить в списке Тип (Type)команду «Строка меню» (Menu Bar) в качестве типа создаваемой панели и закрытье окно.

    Имя нового меню появится в списке Панели инструментов на вкладке Панели инструментов.

    В окне «Свойства панели инструментов» можно задать и другие свойства создаваемого меню. В частности, свойство закрепление (Docking) и опция перемещение (Allow Moving) позволяют разрешить или полностью или частично запретить перемещение меню по экрану. Для головного меню приложения естественно установить постоянное место на экране. Опция настройка (Allow Customizing) позволяет после завершения создания меню отключить возможность его модификации, а если отключить опцию отображение/скрытие (Allow Showing/Hiding), меню будет на экране постоянно.

Создание  меню с помощью  VBA

    Новое меню в Excel, Word или PowerPoint создается средствами VBA (в этих приложениях диалоговое окно Настройка не содержит кнопки Свойства). В Access тоже можно создать меню, используя VBA, но все же удобнее действовать описанным выше способом.

Новое меню создается методом Add коллекции CommandBars (Панели команд): выражение. Add (Name, Position, MenuBar, Temporary,где выражение — обязательное выражение, возвращающее объект Command- Bars, а все параметры в скобках необязательны. Name задает имя нового меню; Position определяет его положение (значения-константы msoBarLeft, msoBarTop, msoBarRight, msoBarButtom определяют положение меню слева, вверху, справа или внизу окна, msoBarFloating задает «плавающее» меню, msoBarPopup указывает, что новое меню будет всплывающим). Значение True параметра МепиВаr указывает, что новое меню заменит текущую активную строку меню (по умолчанию — False). Значение True параметра Temporary означает, что новое меню будет временным и исчезнет, когда закроется содержащее его приложение (по умолчанию - False).

    В следующем примере создаётся  новое меню «Головное меню» созданным

    Dim cstm As CommandBar

    Set cstm = CommandBars. Add (Name: = «Головное меню», -

              Position: =msoBarTop, MenuBar: = True, Temporary: = False)

Добавление  выпадающих меню

    Добавлять новые меню (подманю) и команды к существующим меню (встроенным в Office 97 или созданным пользователем) тоже можно двумя способами: используя диалоговое окно Настройка или VBA. Рассмотрим, как добавить выпадающее меню к существующей панели меню (головному меню).

    Это способ добавления меню или команды более нагляден, в отличие от процедуры создания нового меню его можно применить в любом приложении Office 97, а не только в Access. Открыть диалоговое окно Настройка, а затем:

1. Если модифицируемого меню на экране нет, щелкнуть кнопку выбора рядом с именем изменяемого меню в списке Панели инструментов на одноименной вкладке Панели инструментов.
2. В списке Категории (Categories) на вкладке Команды (Commands) выбрать Новое меню (New Menu).
3. Выбрать команду Новое меню (New Menu) справа в списке Команды (Commands) и перетащить ее в то меню, к которому Вы хотите добавить новое меню. При этом знак I отмечает то место в меню, куда попадет имя нового меню, когда Вы отпустите кнопку мыши.
4. Щелкнуть правой кнопкой мыши Новое меню (New Menu), и ввести имя этого меню в поле Имя (Name) появившегося окна. Одновременно можно задать ключ быстрого доступа к этому меню, поставив символ «&» перед буквой, которая будет этим ключом.

    Если  теперь щелкнуть имя нового меню, на экране под ним появится пустой прямоугольник.

    Диалоговое  окно Настройка позволяет просто добавить (скопировать) любое из встроенных меню к меню, которое Вы создаете. При этом исходное встроенное меню не изменяется. Для этого в диалоговом окне Настройка необходимо сделать модифицируемое меню видимым, а затем:

1. Выбрать в списке Категории вкладки Команды команду Встроенные меню (Built-in Menus).
2. Выбрать в списке Команды имя нужного встроенного меню и перетащить его на нужное место в панель меню, к которой Вы хотите добавить выбранное встроенное выпадающее меню. Знак I отмечает место на панели, куда попадет встроенное меню.

    Есть  и другой способ копирования встроенного  меню; для этого необходимо выбрать его на его собственной панели и перетащить в свою панель меню при нажатой клавише Ctrl.

    Чтобы добавить новое меню программно, нужно использовать метод Add коллекции CoramandBarControln, применив его к объекту типа CommandBar, который представляет панель нашего меню. Этот метод позволяет помещать на панель кнопки (CommandBarButton), комбинированные списки (CommandBarComboВох) и выпадающие меню (ComandBarPopup). Его вызов имеет вид:

выражение Add( Type, Id, Parameter, Before, Temporary),

где выражение должно возвратить объект типа CommandBarsControl, параметры в скобках необязательны. Параметр Туре (Тип) задает тип добавляемого объекта. Его значение msoControlPopup указывает, что добавляемый управляющий элемент — выпадающее меню. Для пользовательских меню параметры Id и Parameter можно опустить. Значение аргумента Before — число, указывающее положение нового элемента в последовательности элементов панели (если его нет, элемент помещается в конец). Определить имя и ключ быстрого доступа к созданному меню можно, задав значение свойства Caption.

    Вот как к панели «Головное меню» добавить выпадающее меню «Ввод документов» с ключом быстрого доступа «В»:

    Dim cstmlnputdocs As CommandBarControl

    Set cstmlnputdocs = ComaandBars ("Головное меню"). Controls

        .Add (Type: = msoControlPopup, Before: = 2)

    cstmlnputdocs. Caption = "&Ввод документов"

    Подменю (или дочернее меню) примыкает к  боковой стороне другого меню — родительского — на уровне той команды родительского меню, которая является заголовком подменю. Подменю можно добавлять как к выпадающим меню, так и к другим подменю и к всплывающим меню. Сначала добавляется пустое подменю, затем в него вставляются команды. Добавить подменю можно двумя способами: с помощью диалогового окна Настройка и через вызов метода Add в VBA.

    Рассмотрим  вначале визуальный способ. Для добавления подменю нужно, как и раньше, активизировать диалоговое окно Настройка и сделать модифицируемое меню видимым. После этого нужно действовать так.

1. На вкладке Команды в списке Категории выбрать команду Новое меню.
2. Выбрите команду Новое меню справа в списке Команды и перетащить ее в то место меню, куда нужно добавить подменю. Чтобы выпадающее меню открылось, показав уже имеющиеся в нем элементы, нужно перетащить Новое меню через имя выпадающего меню. При этом горизонтальная черта будет отмечать то место в списке рубрик выпадающего меню, куда попадет заголовок нового подменю.
3. Щелкнуть правой кнопкой мыши Новое меню и ввести заголовок нового подменю в поле Имя появившегося окна. Одновременно можно задать ключ быстрого доступа к нему, поставив символ «&» перед той буквой, которая будет этим ключом.

     Теперь  при щелчке заголовка подменю  или слева от него появится пустое подменю.

     Чтобы добавить новое подменю программно, к объекту, представляющему родительское выпадающее меню, нужно применить метод Add коллекции CommandBarConlroIs. В качестве параметра Туре (Тип) нужно использовать значение msoControl Popup.

     В следующем примере в конец  выпадающего меню «Ввод документов», расположенного на панели меню «Головное меню», добавляется подменю «о движении товаров».

Dim cstPrMove As CoaeandBarControl

Set estPrMove = CommandBars («Головное меню"). Controls( "Ввод документов")

 .ContгоIs. Add(Type:=msoControlPopup)

cstPrMove. Caption = " о движении товаров"

Вставка и группировка  команд

    Office 97 позволяет добавлять команды к любым встроенным и пользовательским меню, а также изменять внешний вид, группировать и визуально отделять одну группу команд от другой.

    В диалоговом окне Настройка необходимо сделать модифицируемое меню видимым, а затем:

1. На вкладке Команды выбрать в списке Категории категорию добавляемой команды — все команды данной категории будут показаны в списке Команды.
2. Выбрать в списке Команды команду и перетащить в то меню или подменю, куда она добавляется. Чтобы выпадающее меню или подменю открылось, показав имеющиеся в нем элементы, протащить команду через заголовок соответствующего выпадающего меню или подменю. Горизонтальная черта отмечает место в списке команд выпадающего меню, куда попадет заголовок нового подменю, когда Вы отпустите кнопку мыши.

    Скопировать команду можно и иначе: вывести на экран меню с нужной командой и перетащить ее в свое меню при нажатой клавише Ctrl.

    Добавление команды с помощью окна Настройка в собственное или встроенное меню зависит от приложения Office 97, в котором оно выполняется.

1. Microsoft Access. Чтобы добавить команду, запускающую на исполнение макрос, нужно выполнить те же действия, что и при добавлении встроенной команды. При этом в списке Категории выберите Все макросы (All Macros) и перетащить имя нужного макроса из списка Команды в меню. Вызов процедуры-функции вставляется, как и встроенная команда. Выбрать в списке Категории нужную категорию и перетащитm, затем нужный элемент из списка Команды в свое меню. Щелкнув этот элемент правой кнопкой мыши, в появившемся меню выбрать команду Свойства (Control Properties). На экране появится окно с тем же именем. В поле Подпись (Caption) этого окна необходимо заменить прежнее имя функции на новое (это будет имя команды в меню). В поле Действие (On Action) ввести выражение =имя-функции(), запускающее VBA-функцию на исполнение.
2. Microsoft Excel. Действуя, как и при вставке встроенной команды, выбрать в списке Категории команду Макрос (Macros ) и перетащить элемент Настраиваемая команда меню (Custom Menu Item) из списка Команды в меню. Щелкнуть эту команду правой кнопкой мыши и выбрать в появившемся меню команду Назначить макрос (Assign Macro). Затем ввести в поле Имя (Macro Name) имя макроса, который должен запускаться командой меню.
3. Microsoft Word и Microsoft PowerPoint. Как при вставке встроенной команды, выбрать в списке Категории команду Макрос и перетащить в меню имя нужного макроса из списка Команды.