PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → [WD9] comment lister tous les libelles d'un menu principal ?
[WD9] comment lister tous les libelles d'un menu principal ?
Débuté par titou44, 19 juil. 2005 00:34 - 1 réponse
#1
Posté le 19 juillet 2005 - 00:34
Bonsoir

je cherche à lister par programmation tous les libellés d'un menu
principal d'une fenêtre.
et ce, sans connaitre à priori les 'dimensions' du menu.

dans l'aide, il y a un exemple pour lister un menu. or il ne descend
pas plus bas que 2 "niveaux".
pas utile dans mon cas !

je sèche ce soir.

merci pour votre bon coeur !

titou44 chez freesurf.fr

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
#2
Posté le 19 juillet 2005 - 12:13
titou44 avait énoncé :
Bonsoir

je cherche à lister par programmation tous les libellés d'un menu
principal d'une fenêtre.
et ce, sans connaitre à priori les 'dimensions' du menu.

dans l'aide, il y a un exemple pour lister un menu. or il ne descend
pas plus bas que 2 "niveaux".
pas utile dans mon cas !

je sèche ce soir.

merci pour votre bon coeur !

titou44 chez freesurf.fr


bonjour.

voici ce que j'ai pondu :

PROCEDURE liremenu(p_menu)
LOCAL
n1 est entier
n2 est entier
limb est un entier
listelib est une chaîne
NomMenu est une chaîne
NomSousMenu est une chaîne
lechamp est une chaîne
lelib est une chaîne

limb = 1
listelib = p_menu + "|"

FOR n1 = 1 TO limb

n2 = 1
NomMenu = ExtraitChaîne(listelib,n1,"|")
NomSousMenu = EnumèreMenu (NomMenu,n2)

TANTQUE NomSousMenu <> ""
lechamp = {NomSousMenu}..Libellé
trace(lechamp)

listelib = listelib + NomSousMenu + "|"
limb = limb + 1
n2 = n2 + 1

NomSousMenu = EnumèreMenu (NomMenu, n2)
FIN
FIN


et en début de fenetre
liremenu(fenenexecution())


titou44 chez freesurf.fr

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
→ Revenir à WINDEV 2024