Access 2000 - курс лекций
b. Создание кнопок меню
В этой части лекций рассказывается о программе, которая создает две кнопки Помощник и Справка. При нажатии их будет отображаться файл справки и помощник по Вашей программе.
Public Function funCreateMenuControls(strMenu As String) As Boolean
Dim but As CommandBarButton
'Добавляем первую кнопку
Set but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)
With but
.BeginGroup = True 'Начинаем размещение с начала группы
.FaceId = 1 'Устанавливаем код кнопки
.Style = msoButtonCaption 'Выбираем стандартный тип
.Caption = "Справка" 'Называем кнопку
.OnAction = "funCreateNewHelp" 'Определяем программу справки
End With
'Добавляем вторую кнопку
Set but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)
With but
.Caption = "Помощник" 'Называем кнопку
.Style = msoButtonCaption 'Выбираем стандартный тип
.FaceId = 2 'Устанавливаем код кнопки
.OnAction = "funCreateAssistant" 'Определяем программу помощника
End With
funCreateMenuControls = True 'Возвращаем результат
End Function
