OpenSubMenu()

Syntax

OpenSubMenu(Text$)

Erstellt einen leeren Unter-Menüeintrag im aktuellen Menü. Im Text$ können Sie das spezielle '&' Zeichen benutzen, um einen bestimmten Buchstaben zu unterstreichen:

"&Datei" ergibt in Wirklichkeit: Datei

Beispiel:

  If OpenWindow(0, 200, 200, 220, 100, "SubMenu Example")
    If CreateMenu(0, WindowID(0))
      MenuTitle("Project") 
        MenuItem(1, "Open")  
        MenuItem(2, "Close")
        MenuBar()
        OpenSubMenu("Recent files")       ; beginne Erstellung des Unter-Menüs
          MenuItem( 3, "C:\Autoexec.bat")
          MenuItem( 4, "D:\Test.txt")
        CloseSubMenu()                    ; beende Unter-Menü
    EndIf
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
  EndIf

Unterstützte OS

Alle