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



Содержание раздела