Exemple de menu

par **Papydall-Admin** 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 ===========================================================================

Lun	Mar	Mer	Jeu	Ven	Sam	Dim
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31