IsMenu()

Syntaxe

Resultat = IsMenu(#Menu)

Teste si un menu est correctement initialisé.

Arguments

#Menu

Le menu à utiliser.

Valeur de retour

Renvoie une valeur non nulle le le menu est valide, zéro sinon.

Remarques

Cette fonction a été créée pour pouvoir passer n'importe quelle valeur en paramètre sans qu'il ne puisse y avoir de plantage.

Exemple

   If OpenWindow(0, 200, 200, 300, 100, "Exemple FreeMenu")
    ButtonGadget(0,50,10,190,30,"Supprime le Menu")

    If CreateMenu(0, WindowID(0))
      MenuTitle("Projet")
      MenuItem(1, "Ouvrir")     
    EndIf
    
    Repeat
      Event = WaitWindowEvent()          
      If Event = #PB_Event_Gadget  
        Select EventGadget()
          Case 0 
            If IsMenu(0)  ; Le menu existe-t-il ?
              FreeMenu(0) ; Si oui alors on le supprime
            EndIf           
        EndSelect
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf

Voir aussi

CreateMenu(), CreatePopupMenu(), CreateImageMenu(), CreatePopupImageMenu()

OS Supportés

Tous