А. Создание панели меню

     Большинство коммерческих программ имеет в верхней части приложения свою панель элементов, на которой есть разные кнопки. Давайте напишем программу, которая создает панель меню без кнопок.

B. Создание кнопок меню

     В этой части лекций рассказывается о программе, которая создает две кнопки Помощник и Справка. При нажатии их будет отображаться файл справки и помощник по Вашей программе.

и все. Вы полностью прослушали

     Вот и все. Вы полностью прослушали весь курс лекций, и теперь только на практике, разрабатывая программы от простых к сложным, Вы сможете создавать законченные приложения по Access.
   
     Несколько советов по написанию программ
    • названия функций давайте только на английском языке, могут возникнуть проблемы в сложных программах;
    • старайтесь почаще их комментировать, тогда Вам легче будет разбираться в их структуре;
    • не старайтесь писать очень большие базы данных, размер ее – это не показатель качества;
 
    Если у Вас есть вопросы по программированию, то Вы их можете задать автору по почте: LiderAcess@bigfoot.com. Если Вам все ясно, то Вы можете приступить к изучению практического задания по прослушанным лекциям. Для этого откройте папку Задание.
08.06.2000 Виктор Конюков, mailto:LiderAccess@bigfoot.com

Public Function funCreateMenu(strMenu As String) As Boolean

Dim myBar As CommandBar

    'Создаем панель меню

    Set myBar = appAccess.CommandBars.Add(strMenu, msoBarTop, True)

    funCreateMenuControls strMenu '<10> Создаем кнопки меню

    myBar.Visible = True 'Отображаем меню

    funCreateMenu = True 'Возвращаем результат

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 'Возвращаем результат

---

---