Лекции по Microsoft Access 2000


         

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



Содержание  Назад  Вперед