Создание головного меню
Создадим документ, в котором:
- Все встроенные панели отключены,
- Главное меню содержит пять команд. Каждая команда головного меню является именем вертикально расположенного меню, выпадающего при выборе этой команды. Первые две команды главного меню (Файл, Правка) являются привычными для документов Office 2000 и содержат встроенные команды. Три другие команды главного меню (Документы, Проекты, Презентации) являются пользовательскими и содержат собственные команды, макросы для которых придется написать самостоятельно.
Весь инструментарий, необходимый для создания головного меню, уже создан и приведен в предыдущем разделе. Поэтому мне остается привести достаточно понятную процедуру, которая шаг за шагом создает главное меню в соответствии с приведенным планом:
Листинг 3.11.
(html, txt)
Я не стал определять макросы, отвечающие за вызов каждой собственной команды меню, ограничившись стандартной заглушкой "Sorry". В заключение, взгляните на документ, в котором главное меню имеет спроектированный нами вид:
увеличить изображение
Рис. 3.1. Документ, имеющий собственное главное меню
'Добавляет собственный пункт "Проекты" Call AddMenu("MainPanel", "&Проекты", 4, newitem) AddCustomItem newitem, "Все проекты", "Sorry" AddCustomItem newitem, "Мои проекты", "Sorry" 'Добавляем подменю Set Popupitem = AddCustomPopup(newitem, "Текущие проекты") AddCustomItem Popupitem, "Все текущие проекты", "Sorry" AddCustomItem Popupitem, "Мои текущие проекты", "Sorry" AddCustomItem newitem, "Последний проект", "Sorry"
'Добавляет собственный пункт "Презентации" Call AddMenu("MainPanel", "&Презентации", 5, newitem) AddCustomItem newitem, "Все презентации", "Sorry" AddCustomItem newitem, "Мои презентации", "Sorry" 'Добавляем подменю Set Popupitem = AddCustomPopup(newitem, "Текущие презентации") AddCustomItem Popupitem, "Все текущие презентации", "Sorry" AddCustomItem Popupitem, "Мои текущие презентации", "Sorry" AddCustomItem newitem, "Последняя презентация", "Sorry"
End Sub
Листинг 3.11.
Я не стал определять макросы, отвечающие за вызов каждой собственной команды меню, ограничившись стандартной заглушкой "Sorry". В заключение, взгляните на документ, в котором главное меню имеет спроектированный нами вид:
увеличить изображение
Рис. 3.1. Документ, имеющий собственное главное меню
