Функция GetSubMenu

Declare Function GetSubMenu Lib "user32" Alias "GetSubMenu" (ByVal hMenu As Long, _
    ByVal nPos As Long) As Long

GetSubMenu получает дескриптор всплывающего меню или подменю

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

Функция возвращает дескриптор всплывающего меню или подменю. Если окно не имеет меню, то функция возвращает 0

Параметры

hMenu

Дескриптор меню, возвращаемый GetMenu

nPos

Номер текущей позиции подменю. Если параметр равен 0, то возвращается дескриптор первого подменю (напр. Файл)

Пример

' Сначала создайте с помощью Menu Editor
' маленькую систему меню на Form1

' Определим дескриптор меню формы
Dim hMenu As Long
Dim hSubMenu As Long

' Получим дескриптор меню формы
hMenu = GetMenu(Form1.hWnd)
' Получим дескриптор подменю
hSubMenu = GetSubMenu(hMenu, 0)
Print hSubMenu

Смотри также

GetMenu

Категория

Меню