Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Avril 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
30      

Calendrier Calendrier


Exemple de menu

Aller en bas

Exemple de menu

Message par Papydall-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
Papydall-Admin
Admin

Messages : 94
Réputation : 0
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

Revenir en haut

- Sujets similaires

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