Функция CreateMenu

Declare Function CreateMenu Lib "user32" () As Long

CreateMenu создает новое меню. Данное меню создается пустым. Для добавления пунктов в меню используйте функции InsertMenuItem, InsertMenu, AppendMenu. Если ваша программа больше не нуждается в созданном меню, то удалите ее функцией DestroyMenu.

Возвращаемое значение

В успешном случае функция возвращает описатель созданного меню. В случае ошибки возвращается 0 (используйте GetLastError для получения кода ошибки)>.

Параметры

Функция не имеет параметров.

Пример

Dim hmenu As Long
Dim hsubmenu As Long
Dim result As Long

' Создадим пустое меню
hmenu = CreateMenu()
hsubmenu = CreateMenu()
' Добавим новые пункты к меню
result = AppendMenu(hmenu, MF_POPUP, hsubmenu, "&Файл")
result = AppendMenu(hsubmenu, MF_STRING, 300, "Новый")
result = AppendMenu(hsubmenu, MF_STRING, 301, "Сохранить")
result = AppendMenu(hsubmenu, MF_STRING, 302, "&Закрыть")

result = SetMenu(Me.hwnd, hmenu)

Смотри также

AppendMenu, CreatePopupMenu, DestroyMenu, InsertMenu, InsertMenuItem

Категория

Меню