Page 1 sur 1

[RESOLU] SubMenu

Publié : jeu. 26/sept./2019 14:06
par Shade
Salut tous le monde voila je me retrouve encore face a un problème
un truc simple est c** je pense

mais voila toujours dans mon logiciel j'ai créer un menu est dans ce menu j'ai un submenu

dans mon code je voudrai trouver comment changer le nom de se submenu j'ai essayé SetMenuItem et SetMenuTitle mais rien ni fait j'ai aussi essayé de lui mettre une constante mais sa me créer une erreur, j'ai aussi regardé l'aide mais il n'en parle pas
je vous remercie d'avance encore pour votre coup de main

Re: SubMenu

Publié : jeu. 26/sept./2019 15:00
par Marc56
[...]dans mon code je voudrais trouver comment changer le nom de ce submenu [...] j'ai aussi regardé l'aide mais il n'en parle pas
https://www.purebasic.com/french/docume ... bmenu.html
:idea: :arrow: Lire toute la page. :wink:

« 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.
»

Code : Tout sélectionner

OpenWindow(0, 200, 200, 220, 100, "Exemple SubMenu")

If CreateMenu(0, WindowID(0))
    MenuTitle("Projet") 
    MenuItem(1, "Ouvrir")  
    MenuItem(2, "Fermer")
    MenuBar()
    SubMenu = OpenSubMenu("Fichiers Récents...") 
    MenuItem(3, "Renommer Sous-Menu")
    MenuItem(4, "C:\Autoexec.bat")
    MenuItem(5, "D:\Test.txt")  
    CloseSubMenu()                    
EndIf

Repeat 
    Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
            End
        Case #PB_Event_Menu
            If EventMenu() = 3
                SetMenuItemText (0, SubMenu, "Menu renommé")
            EndIf
    EndSelect    
ForEver

Re: SubMenu

Publié : jeu. 26/sept./2019 20:12
par Shade
Merci Marc56
effectivement erreur de ma part pour l'aide j'ai vu "OpenSubMenu" et je me suis dis non ça va pas être par la est bah si
encore désolé de vous avoir dérangez pour sa

est merci pour votre aide

je mes résolu merci encore