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 MacOS 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