OpenSubMenu()

Syntaxe

OpenSubMenu(Texte$ [, ImageID])

Crée une nouvelle ligne de menu donnant accès à un sous-menu (vide, pour l'instant). Dans la chaîne Texte$, vous pouvez utiliser le caractère & pour souligner une lettre spécifique, ainsi :

"&Fichier" affichera une ligne de menu Fichier avec le F souligné.

Le paramètre optionel 'ImageID' permet d'ajouter une image à afficher à coté du texte du menu. Ce paramètre n'aura d'effet que si le menu a été créé avec CreateImageMenu() ou CreatePopupImageMenu().

Exemple

  If OpenWindow(0, 200, 200, 220, 100, "Exemple SubMenu")
    If CreateMenu(0, WindowID(0))
      MenuTitle("Project") 
        MenuItem(1, "Open")  
        MenuItem(2, "Close")
        MenuBar()
        OpenSubMenu("Recent files")       ; Crée un sous-menu
          MenuItem( 3, "C:\Autoexec.bat")
          MenuItem( 4, "D:\Test.txt")
        CloseSubMenu()                    ; Termine la création du sous-menu
    EndIf
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
  EndIf

OS Supportés

Tous