Discussion :

[Fmfib]

Bonjour

J'ajoute des options menu dans un menu contextuel (Ce menu est pour la première fois est vide)

Je sélectionne dans la liste COMBOCETGO le modèle de la catégorie afin d'ajouter dans le menu que la catégorie choisie.

Dans le code de champ COMBOCETGO j'appelle la procédure dont son code est ci-dessous

MenuSupprime(MENU_cnxt) //Pour initialiser le menu contextuel
ProcAjouteOptionMenu() // Je crée le menu à nouvreau

Code procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
POUR TOUT CATEGORIE AVEC "Categorie =  '"+COMBOCETGO +"' "
  MenuAjouteOption(MENU_cnxt,CATEGORIE.cetagorie,CATEGORIE.libelle)
 
FIN

Puis j'ouvre ce menu par la fonction OuvreMenuContextuel(MENU_cnxt) Il m'affiche :

Bois rouge 1254
Bois rouge Mt14
Bois extra
...

Lors je change la catégorie depuis la liste et je valide mon choix, le menu contextuel garde les anciennes catégories et ajoutes les nouveaux comme ceci:

Bois rouge 1254
Bois rouge Mt14
Bois extra
Bois lettre 20M24
Bois lettre 20M25

Alors pour initialiser le menu je met la fonction MenuSupprime(MENU_cnxt)
mais toujours la même affichage

Merci de me donner une piste ou une astuce

[tbc92]

La commande MenuSupprime(MENU_cnxt) upprime ou essaie de supprimer Menu_cnxt.
Toi, ce que tu veux faire, c'est garder Menu_cnxt, mais supprimer toutes les options de menu qui sont en-dessous de Menu_cnxt.

Je ferais donc quelque chose comme ça (pas testé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
NomMenu est une chaîne
NomMenu = EnumèreMenu(MENU_cnxt, 1) // Lecture du 1er menu de la fenêtre
TANTQUE NomMenu <> ""
   Menusupprime ( "Menu_cnxt."+ nom_menu )
   NomMenu = EnumèreMenu(MENU_cnxt, 1) 
FIN

[Fmfib]

Merci tbc92
Ta proposition ça marche bien
Dans l'aide de pcsoft la fonction MenuSupprime() = Supprime un menu ou une option de menu.