Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

Derniers sujets
»  Animations : Livres et leçons sur le français
Dim 21 Jan - 2:04 par Admin

» Animations FLASH
Lun 1 Jan - 13:01 par Admin

» Bonne Année 2018
Ven 29 Déc - 0:48 par Admin

» Automate cellulaire : simulation de feu de forêt
Sam 9 Déc - 2:56 par Admin

»  Exécution des fichiers CPL
Mar 28 Nov - 19:18 par Admin

» Quelques fonctions de la user32.dll
Sam 25 Nov - 1:43 par Admin

» Copier vers une FORM définie l’image de fond du bureau.
Ven 24 Nov - 2:38 par Admin

»  Capture d’écran de Windows
Ven 17 Nov - 0:27 par Admin

»  Courbes de Bézier cubiques
Mer 8 Nov - 2:28 par Admin

Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    

Calendrier Calendrier


Exemple de menu

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 : 78
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