GetMenuItemText()

Syntax

Text$ = GetMenuItemText(#Menü, Eintrag)

Gibt den Text des angegebenen Menü-Eintrags zurück.

Parameter

#Menü	Das zu verwendende Menü.
Eintrag	Der Eintrag, von dem der Text ermittelt werden soll.

Rückgabewert

Gibt den Text des Menü-Eintrags zurück.

Beispiel

  Enumeration ; Menü-Einträge
    #New
    #Open
    #Last
  EndEnumeration
  
  ; Mehrere Menü-Einträge festlegen und später ihren Text ermitteln...
  If OpenWindow(0, 200, 200, 300, 100, "GetMenuItemText Example")
    If CreateMenu(0, WindowID(0))
      MenuTitle("File")
      MenuItem(#New, "New")
      MenuItem(#Open, "Open")
      For i = #Last To 10
        MenuItem(i, "Item" + Str(i))
      Next
    EndIf
    
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_Menu
          em = EventMenu()
          Select em
            Case #New
              Debug "pressed: " + GetMenuItemText(0, #New)
            Case #Open
              Debug "pressed: " + GetMenuItemText(0, #Open)
            Case #Last To 10
              Debug "pressed: " + GetMenuItemText(0, em)
          EndSelect
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    ForEver
  EndIf

Siehe auch

SetMenuItemText(), MenuItem()

Unterstützte OS

Alle