PreviousNext
Help > Programmation avec LAUNCHER Office > Les commandes LNCCMD > Liste des commandes > Commande MENU
Commande MENU

Construit une barre de menu personnalisée indépendante de toute application.


MENU doit être utilisé avec la commandes MENUWAIT.

 

Syntaxe

 

CHGVAR

VAR(&CMD) VALUE('MENU')

CHGVAR

VAR(&PARM1) VALUE('Captions="Libellés des boutons ;…"
[;Tips="Bulle d’aide ;…"]

[;MenuName="Nom du menu"]')

CHGVAR

VAR(&PARM2) VALUE(' ')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)

 

 Paramètres

 

Paramètres

 

Parm1

Captions= Permet de donner le libellé de chaque bouton de la nouvelle barre de menu.
Les libellés sont séparés entre eux par un point virgule ( ;).
Le nombre de libellés détermine le nombre de boutons de la barre de menu.


Tips= Permet d’afficher une bulle d’aide pour chaque bouton.


MenuName=Permet de donner un nom au menu.

 

 

 

Remarque 

Lors de l’appel de la commande MENUWAIT, le programme AS/400 se met en attente d’une action de la part de l’utilisateur. Il reprend la main sur l’action d’un des boutons du nouveau menu, ou quand le menu est fermé.
Au retour de la commande MENUWAIT, la variable &RESULT contient le numéro sur 5 chiffres du bouton actionné (De 1 à n).

Le menu se ferme automatiquement lorsqu’une action a eu lieu.

 

Exemple

 

       CHGVAR     VAR(&CMD) VALUE('MENU')                        

       CHGVAR     VAR(&PARM1) +                                  

                    VALUE('CAPTIONS="VALIDER;ANNULER";TIPS="VAL+ 

                    IDER LE DOCUMENT;ANNULER"')                  

       CHGVAR     VAR(&PARM2) VALUE(' ')                         

       CALL       PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +    

                    &PARM2 &RESULT)                              

 

 

 

CHGVAR     VAR(&CMD) VALUE('MENU')                      

CHGVAR     VAR(&PARM1) +                                

             VALUE('CAPTIONS="EXCEL;WORD";TIPS="OUVRIR +

             EXCEL;OUVRIR WORD";MENUNAME="CHOIX APPLI + 

             OFFICE"')                                  

CHGVAR     VAR(&PARM2) VALUE(' ')                       

CALL       PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +  

             &PARM2 &RESULT)