GetMenuItemText()

Syntaxe

Resultat$ = GetMenuItemText(#Menu, Element)

Renvoie le texte d'un menu.

Arguments

#Menu	Le menu à utiliser.
Element	L'élément du menu.

Valeur de retour

Renvoie le texte du menu déroulant.

Exemple

  If OpenWindow(0, 200, 200, 300, 100, "Exemple GetMenuItemText")
  If CreateMenu(0, WindowID(0))
    MenuTitle("Projet")
    MenuItem(1, "Nouveau")
    MenuItem(2, "Ouvrir") 
  EndIf
  
  Repeat
    Event = WaitWindowEvent()          
    If Event = #PB_Event_Menu          ; un menu a été cliqué
      Select EventMenu()              
        Case 1
          ShowDebugOutput()
          Debug " le 1er menu a été cliqué dont le texte est : " + GetMenuItemText(0,1)   
        Case 2
          ShowDebugOutput()
          Debug " le 2ième menu a été cliqué dont le texte est : " + GetMenuItemText(0,2)
      EndSelect
    EndIf
  Until Event = #PB_Event_CloseWindow
  EndIf

Exemple

   Enumeration ; Menus
    #Nouveau
    #Ouvrir
    #Divers
  EndEnumeration
  
  ; Configurer plusieurs éléments de menu et récupérer leur texte ultérieurement...
  If OpenWindow(0, 200, 200, 300, 100, "Exemple GetMenuItemText()")
    If CreateMenu(0, WindowID(0))
      MenuTitle("Fichier")
      MenuItem(Nouveau, "Nouveau")
      MenuItem(#Ouvrir, "Ouvrir")
      For i = #Divers To 10
        MenuItem(i, "Menu " + Str(i))
      Next
    EndIf
    
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_Menu
          em = EventMenu()
          Select em
            Case #Nouveau
              Debug "Menu : " + GetMenuItemText(0, #Nouveau)
            Case #Ouvrir
              Debug "Menu : " + GetMenuItemText(0, #Ouvrir)
            Case #Divers To 10
              Debug "Menu : " + GetMenuItemText(0, em)
          EndSelect
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    ForEver
  EndIf

Voir aussi

SetMenuItemText(), MenuItem()

OS Supportés

Tous