Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

Derniers sujets
»  Simuler l’appui d'une touche ou combinaison de touches
Sam 16 Sep - 13:58 par Admin

» Régalez-vous !
Sam 29 Juil - 11:42 par Admin

» Les bienfaits du rire
Ven 7 Juil - 0:04 par Admin

» Derrière chaque beau parleur se cache un magnifique menteur
Ven 7 Juil - 0:01 par Admin

» Carré magique d’ordre 3 à 99 et plus si affinité !
Mer 5 Juil - 3:21 par Admin

» Dessine-moi une étoile
Mar 4 Juil - 17:32 par Admin

»  Equation paramétrique de la super-ellipse
Mar 4 Juil - 17:29 par Admin

»  Exécution des fichiers CPL
Sam 1 Juil - 14:01 par Admin

» Un papa à la page.
Ven 30 Juin - 15:01 par Admin

Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 

Calendrier Calendrier


Exemple de menu

Voir le sujet précédent Voir le sujet suivant Aller en bas

Exemple de menu

Message par Admin le Lun 26 Juin - 22:36

Code:
rem ============================================================================[size=11][/size]
rem        Exemple de menu[size=11][/size]
rem        Pour choisir un sous-menu, vous pouvez :[size=11][/size]
rem        1) cliquer sur son nom[size=11][/size]
rem        2) ou taper la lettre soulignée correspondante[size=11][/size]
rem ============================================================================[size=11][/size]
label clic[size=11][/size]
dim i[size=11][/size]
main_menu 10[size=11][/size]
     sub_menu 11 : parent 11,10 : caption 11,"Fichier"[size=11][/size]
     sub_menu 12 : parent 12,11 : caption 12,chr$(9) + "Nouveau"[size=11][/size]
     sub_menu 13 : parent 13,11 : caption 13,chr$(9) + "Ouvrir"[size=11][/size]
     sub_menu 14 : parent 14,11 : caption 14,chr$(9) + "Enregistrer"[size=11][/size]
     sub_menu 15 : parent 15,11 : caption 15,chr$(9) + "Enregistrer Sous"[size=11][/size]
     sub_menu 16 : parent 16,11 : caption 16,chr$(9) + "Imprimer"[size=11][/size]
     sub_menu 17 : parent 17,11 : caption 17,chr$(9) + "Quitter"[size=11][/size]
[size=11][/size]
     sub_menu 20 : parent 20,10 : caption 20,"Edition"[size=11][/size]
     sub_menu 21 : parent 21,20 : caption 21,chr$(9) + "Annuler"[size=11][/size]
     sub_menu 22 : parent 22,20 : caption 22,chr$(9) + "Couper"[size=11][/size]
     sub_menu 23 : parent 23,20 : caption 23,chr$(9) + "Copier"[size=11][/size]
     sub_menu 24 : parent 24,20 : caption 24,chr$(9) + "Coller"[size=11][/size]
     sub_menu 25 : parent 25,20 : caption 25,chr$(9) + "Rechercher ..."[size=11][/size]
     sub_menu 26 : parent 26,20 : caption 26,chr$(9) + "Remplacer ..."[size=11][/size]
     [size=11][/size]
     sub_menu 30 : parent 30,10 : caption 30,"Langues"[size=11][/size]
     sub_menu 31 : parent 31,30 : caption 31,chr$(9) + "Langue française" : mark_on 31[size=11][/size]
     sub_menu 32 : parent 32,30 : caption 32,chr$(9) + "English Language"[size=11][/size]
     sub_menu 33 : parent 33,30 : caption 33,chr$(9) + "Autres "[size=11][/size]
         sub_menu 34 : parent 34,33 : caption 34,chr$(9) + "Italiano"[size=11][/size]
         sub_menu 35 : parent 35,33 : caption 35,chr$(9) + "Dutch"[size=11][/size]
[size=11][/size]
[size=11][/size]
for i = 12 to 17 : on_click i,clic : next i[size=11][/size]
for i = 21 to 26 : on_click i,clic : next i[size=11][/size]
for i = 31 to 35 : on_click i,clic : next i[size=11][/size]
end[size=11][/size]
rem ============================================================================[size=11][/size]
clic:[size=11][/size]
   select number_click[size=11][/size]
   ' menu Fichier[size=11][/size]
       case 12 : message "Nouveau"[size=11][/size]
       case 13 : message "Ouvrir"[size=11][/size]
       case 14 : message "Enregistrer"[size=11][/size]
       case 15 : message "Enregistrer sous"[size=11][/size]
       case 16 : message "Imprimer"[size=11][/size]
       case 17 : message "Quitter"[size=11][/size]
       ' -----------------------------------[size=11][/size]
   ' menu Edition[size=11][/size]
       case 21 : message "Annuler"[size=11][/size]
       case 22 : message "Couper"[size=11][/size]
       case 23 : message "Copier"[size=11][/size]
       case 24 : message "Coller"[size=11][/size]
       case 25 : message "Rechercher ...."[size=11][/size]
       case 26 : message "Remplacer ...."[size=11][/size]
   ' menu Langues[size=11][/size]
       case 31 : message "Langue française par défaut"[size=11][/size]
       case 32 : message "English Language"[size=11][/size]
       case 34 : message "Italiano"[size=11][/size]
       case 35 : message "Dutch"[size=11][/size]
   end_select[size=11][/size]
return[size=11][/size]
rem ===========================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Admin
Admin

Messages : 68
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum