Шрифт:
Public Sub ResetMainMenu
Dim CstmBar As CommandBar
'Включаем все панели
For Each CstmBar In CommandBars
CstmBar.Enabled = True
Next CstmBar
Set CstmBar = CommandBars.Item(«Menu Bar»)
CstmBar.Visible = True
End Sub
5. Пропишите обработчик кнопки «Создать».
Private Sub CommandButton1_Click
Call CreateCustomMenu
End Sub
6. Пропишите обработчик кнопки «Отмена», восстанавливающей стандартное окружение.
Private Sub CommandButton2_Click
Call ResetMainMenu
End Sub
7. Чтобы пример был законченным, приведем процедуры, вызываемые в ответ на выбор команд меню Накладная и Счет:
Public Sub Invoice
MsgBox («Накладная!»)
End Sub
Public Sub Account
MsgBox («Счет!»)
End Sub
8. Откомпилируйте программу, запустите форму на выполнение.
Рис. 127. Форма примера 61 в рабочем режиме. Результат работы кнопки Создать
Примечание. Данный пример доработать для более рационального использования следующим образом: в головном меню разработчика создать пункт Форма, который вызывает соответствующую форму, редактирующую меню всего приложения (рис. 129, 130). После нажатия кнопки Создать меню всего приложения Word изменяется, подключив Главное меню, созданное программно. В этом меню пункт «Работа с меню + Отмена» запускает форму с соответствующими кнопками (Создать и Отменить).
Рис. 128. Результат работы кнопки Отменить
Рис. 129. Главное меню разработчика и вызываемая форма
Рис. 130. Главное меню приложения, созданное программно, и пункт Отмена, вызывающий форму с кнопкой Отменить
Литература
1. Биллиг В.А., Дехтяръ М.И. VBA и Office 97. Офисное программирование. М.: Издательский отдел «Русская Редакция», ТОО «Cheannel Trading Ltd.», 1998.
2. Биллиг В.А. VBA в Office 2000. Офисное программирование. М.: Издательско-торговый дом «Русская Редакция», 1999.
3. Санна П. и др. Visual Basic® для приложений (версия 5) в подлиннике / Пер. с англ. СПб.: BHV – Санкт-Петербург, 1997.
4. Гарнаев А.Ю. Самоучитель VBA. СПб.: БХВ-Петербург, 2004.
5. Кузьменко В.Г. VBA 2000. М.: ЗАО «Издательство БИНОМ», 2000.
6. Камминг С. VBA для «чайников». 3-е изд. М.: Издательский дом «Диалектика», 2001.
7. Симонович СВ., Евсеев Г.А., Алексеев А.Г. Специальная информатика: Учеб. пособие. М.: АСТ-ПРЕСС: Информ-Пресс, 2001.
8. Робинсон С. Microsoft Access 2000: Учебный курс. СПб.: Питер, 2002.
9. Информатика: Практикум по технологии работы на компьютере / Под ред. Н.В. Макаровой. М.: Финансы и статистика, 2003.
10. Харитонова И., Вольман Н. Программирование в Access 2002: Учебный курс. СПб.: Питер, 2002.