HideMenu

Синтаксис

Sub HideMenu(ByVal menu As HMENU, ByVal State As Long)

Описание

Позволяет скрывать(отображать) меню

Параметры

menu - хендл меню

State - флаг, может быть:
    1 - скрыть меню
    0 - отобразить меню

Платформы

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 меню")
ButtonGadget(1,10,30,110,30,"скрыть меню")
ButtonGadget(2,150,30,110,30,"показать меню")
Do
  var event=WaitEvent
  If event=EventGadget then
     Select case EventNumber
        Case 1
           HideMenu(menu,1)
        Case 2
           HideMenu(menu,0)
     End Select
  EndIf
  If event=EventClose Then End
Loop

Created with the Personal Edition of HelpNDoc: Free iPhone documentation generator