GetStateMenu

Синтаксис

Function GetStateMenu(ByVal menu As HMENU, ByVal item As Long) As Integer

Описание

Позволяет определить статус меню. Возвращаемое значение:
0 - меню активно, флажок не установлен
1 - пункт меню недоступен, отображается серым цветом
2 - (только Windows)пункт меню недоступен
3 - установлен флажок
4 - установлен флажок, но пункт меню недоступен, отображается серым цветом
5 - (только Windows) установлен флажок, но пункт меню недоступен

Параметры

menu - хендл меню

item - пункт меню

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HMENU menu,MenName,MenName1,MenName2
OpenWindow("",10,10,400,400)
menu=Create_Menu()
MenName=MenuTitle(menu,"Файл")
MenName1=MenuTitle(menu,"Помощь")
MenuItem(1001,MenName,"1 меню")
MenuItem(1002,MenName,"2 меню")
ButtonGadget(1,10,50,200,30,"Получить состояние 1 меню")
SetStateMenu(menu,1001,3)
Do
  var event=WaitEvent
  If event=EventGadget then
     Select case EventNumber
        Case 1
           Print GetStateMenu(menu,1001) ' Получаем статус меню
     End Select
  EndIf
  If event=EventClose Then End
Loop

Результат

3

Created with the Personal Edition of HelpNDoc: Produce electonic books easily