вторник, 29 декабря 2015 г.

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

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

Вот так примерно выглядит редактирование кнопок меню для новой вкладки в Microsoft Access 2016.



Public Function funCreateMenu(strMenu As StringAs Boolean
        Dim myBar As CommandBar
        'Создаем панель меню
        myBar = appAccess.CommandBars.Add(strMenu, msoBarTop, True)
        funCreateMenuControls strMenu '<10> Создаем кнопки меню
        myBar.Visible = True 'Отображаем меню
        funCreateMenu = True 'Возвращаем результат
End Function

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

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


Заключение

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

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

ОГЛАВЛЕНИЕ

ССЫЛКИ ПО ТЕМЕ

Загрузить исходники по теме (скоро …)

1 комментарий:

leadersoft комментирует...

Данный код VBA соответствует версии Access 2000 и выше. Сама версия VBA практически не изменился, но серьезные изменения коснулись меню и некоторых библиотек. Вывод. Необходимо проверить этот код на вашей версии Access и внести в него изменения.