Access 2000 - курс лекций




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


 

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

 

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

End Function

 









Начало    Назад    Вперед






Книжный магазин