HideMenu()

Syntaxe

HideMenu(#Menu, Etat)

Cache ou affiche un menu.

Arguments

#Menu	Le menu à utiliser.
Etat	#True : Le menu est caché #False : Le menu est affiché

Valeur de retour

Aucune.

Exemple: Cache un Menu

  If OpenWindow(0, 200, 200, 300, 100, "Exemple HideMenu")
  ButtonGadget(10,70,10,150,30,"Cacher le menu")
  If CreateMenu(0, WindowID(0))
    MenuTitle("Projet")
    MenuItem(1, "Nouveau")
    MenuItem(2, "Ouvrir") 
  EndIf
  
  Repeat
    Event = WaitWindowEvent()          
    If Event = #PB_Event_Gadget  
      Select EventGadget()
        Case 10 
          HideMenu(0,#True) ; cache le menu
      EndSelect
      
    EndIf
  Until Event = #PB_Event_CloseWindow
  EndIf

Exemple: Affiche un Menu

If OpenWindow(0, 200, 200, 300, 100, "Exemple HideMenu")
  ButtonGadget(0,70,10,150,30,"Affiche le menu")
  If CreateMenu(0, WindowID(0))
    MenuTitle("Projet")
    MenuItem(1, "Nouveau")
    MenuItem(2, "Ouvrir") 
  EndIf
  
  HideMenu(0,#True) ; Cache le menu
  
  Repeat
    Event = WaitWindowEvent()          
    If Event = #PB_Event_Gadget  
      Select EventGadget()
        Case 0 
        HideMenu(0,#False) ; Affiche le menu  
      EndSelect
      
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf

Exemple: Change de Menu

  If OpenWindow(0, 200, 200, 300, 100, "Exemple HideMenu")
  ButtonGadget(0,70,10,150,30,"Change de menu")
  If CreateMenu(0, WindowID(0))
    MenuTitle("Projet")
    MenuItem(1, "Nouveau")
    MenuItem(2, "Ouvrir") 
  EndIf
  If CreateMenu(1, WindowID(0))
    MenuTitle("Menu")
    MenuItem(1, "Enregistrer")
    MenuItem(2, "Quitter") 
  EndIf
  
  HideMenu(0,#False) ; Affiche le menu "Projet" 
  Repeat
    Event = WaitWindowEvent()          
    If Event = #PB_Event_Gadget  
      Select EventGadget()
        Case 0 
          HideMenu(1,#False) ; Affiche le menu "Menu" 
      EndSelect
      
    EndIf
  Until Event = #PB_Event_CloseWindow
  EndIf

Voir aussi

CreateMenu(), CreateImageMenu()

OS Supportés

Tous