Иллюстрированный самоучитель по Access 2002


         

Изменение меню и панелей инструментов с помощью VBA - часть 2


Function SetEnabled (barName As String, index As Integer, state As Boolean)

Dim cbar As Object

Set cbar = CommandBars(barName)

cbar.Controls(index).Visible = state

SetEnabled = True

End Function

Созданные вами меню и панели инструментов должны в нужное время появляться на экране. В большинстве случаев это обеспечивается тем, что создается одна общая строка меню и одна общая панель инструментов, которые выводятся на экран при запуске приложения и заменяются в нужное время меню и панелями инструментов, связанными с формами и отчетами (если, конечно, вы отключили встроенные меню и панели инструментов Access, задав соответствующие параметры запуска).

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

Чтобы задать свою собственную строку меню в качестве главной строки меню в приложении, можно либо изменить параметр

Строка меню

(Menu Bar) в окне

Параметры запуска

(Startup), либо установить свойство MenuBar объекта Application

(см. разд. "Объектная модель Microsoft Access" гл. 13):

Application.MenuBar = "Главное меню"

Для того чтобы показывать или прятать панели инструментов в процессе работы программы, можно использовать макрокоманду ПанельИнструментов (ShowToolbar). Эта макрокоманда имеет два аргумента: имя панели инструментов и значение

Показать

(Show) (рис. 14.34).




Содержание  Назад  Вперед