End Function. В качестве параметров в функцию передаются имя панели команд barName, индекс элемента панели index и значение свойства state

В качестве параметров в функцию передаются имя панели команд barName, индекс элемента панели index и значение свойства state.

Переменная char будет содержать ссылку на нужную панель, возвращаемую функцией CommandBars.

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

В отличие от других семейств объектной модели VBA в семействе controls элементы нумеруются не с нуля, а с единицы.

Это означает, что для ссылки на первый элемент семейства нужно использовать выражение

CommandBar.Controls(1) вместо ожидаемого CommandBar.Controls (0).

Аналогичная функция может быть использована для того, чтобы скрыть или показать отдельные меню или кнопки на панели команд, только изменяться должно свойство visible того же самого семейства controls:

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

Dim char As Object

Set char = CommandBars(barName)

char.Controls(index).Visible = state

SetEnabled = True

End Function

Созданные вами меню и панели инструментов должны в нужное время по­являться на экране.

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

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

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

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

Поле Показать на панели инструментов позволяет определить три зна­чения:

1. Да (Yes) — панель инструментов будет всегда отображаться на экране.

2. В обычном режиме (Where Appropriate) — панель инструментов будет ото­бражаться только при необходимости. Этот режим используется для встроенных панелей инструментов.

3. Нет (No) — панель инструментов будет скрыта.

Вместо макроса можно использовать метод showToolbar объекта DoCmd.

Это будет выглядеть в коде VBA следую­щим образом:

DoCmd ShowTooibar "Главное меню", acToolbarYes,

где acToolbarYes — встроенная константа.

Поиск по сайту: