OpenSubMenu()

Syntaxe

OpenSubMenu(Texte$ [, ImageID])
Description
Crée un sous menu.

Arguments

Texte$ Le texte du nouveau sous menu.

Vous pouvez utiliser le caractère & pour souligner une lettre, ainsi :
"&Fichier" affichera une ligne de menu Fichier avec le F souligné.
ImageID (optionnel) L'image affichée pour cet élément.
Le menu doit avoir été créé avec CreateImageMenu() ou CreatePopupImageMenu().

'ImageID' peut être facilement obtenu avec ImageID().

Remarques

Il n'est pas possible de renommer un OpenSubMenu aisément, sauf sous Windows qui lui, renvoie un numéro de menu.
Ex:
SubMenu = OpenSubMenu("Nouveau")
SetMenuItemText(0, SubMenu, "Ouvrir")
Sous Linux et MacOsX vous devrez jongler entre plusieurs menus ou détruire et recréer le menu à convenance.

Exemple

  If OpenWindow(0, 200, 200, 220, 100, "Exemple SubMenu")
    If CreateMenu(0, WindowID(0))
      MenuTitle("Projet") 
        MenuItem(1, "Ouvrir")  
        MenuItem(2, "Fermer")
        MenuBar()
        OpenSubMenu("Fichiers Récents...") ; Crée un sous-menu
          MenuItem( 3, "C:\Autoexec.bat")
          MenuItem( 4, "D:\Teste.txt")
        CloseSubMenu()                     ; Termine la création du sous-menu
    EndIf
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
  EndIf

Voir aussi

CloseSubMenu(), MenuTitle(), MenuItem(), MenuBar()

OS Supportés

Tous

<- MenuTitle() - Menu Index - SetMenuItemState() ->