PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → [WD9] comment lister tous les libelles d'un menu principal ?
[WD9] comment lister tous les libelles d'un menu principal ?
Iniciado por titou44, jul., 19 2005 12:34 AM - 1 resposta
#1
Publicado em julho, 19 2005 - 12:34 AM
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
Publicado em julho, 19 2005 - 12:13 PM
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
→ Voltar para WINDEV 2024