Создает главное меню Dim newitem
|
Public Sub CreateMainMenu() ' Создает главное меню Dim newitem As CommandBarPopup Dim Popupitem As CommandBarPopup 'Создает панель MainPanel главного меню AddMainPanel ("MainPanel") 'Добавляет пункт File Call AddBuiltinMenu("MainPanel", "&Файл", 1, newitem) AddItem newitem, "Созд&ать" AddItem newitem, "&Открыть..." AddItem newitem, "&Закрыть" AddItem newitem, "&Сохранить" AddItem newitem, "&Печать" AddItem newitem, "Сохранить &как..." 'Добавляет пункт Edit Call AddBuiltinMenu("MainPanel", "&Правка", 2, newitem) AddItem newitem, "&Вырезать" AddItem newitem, "&Копировать" AddItem newitem, "Вст&авить" AddItem newitem, "&Найти..." AddItem newitem, "&Заменить..." 'Добавляет собственный пункт "Документы" Call AddMenu("MainPanel", "&Документы", 3, newitem) AddCustomItem newitem, "Все документы", "Sorry" AddCustomItem newitem, "Мои документы", "Sorry" 'Добавляем подменю Set Popupitem = AddCustomPopup(newitem, "Текущие документы") AddCustomItem Popupitem, "Все текущие документы", "Sorry" AddCustomItem Popupitem, "Мои текущие документы", "Sorry" AddCustomItem newitem, "Последний документ", "Sorry" 'Добавляет собственный пункт "Проекты" 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. |
| Закрыть окно |
