Une autre façon de présenter un menu et ses sous-menus

rem ============================================================================
rem        Exemple de menu
rem        Pour choisir un sous-menu, vous pouvez :
rem        1) cliquer sur son nom
rem        2) ou tapper la lettre soulignée correspondante
rem ============================================================================
label clic
dim i
main_menu 10
     sub_menu 11 : parent 11,10 : caption 11,"Fichier"
     sub_menu 12 : parent 12,11 : caption 12,chr$(9) + "Nouveau"
     sub_menu 13 : parent 13,11 : caption 13,chr$(9) + "Ouvrir"
     sub_menu 14 : parent 14,11 : caption 14,chr$(9) + "Enregistrer"
     sub_menu 15 : parent 15,11 : caption 15,chr$(9) + "Enregistrer Sous"
     sub_menu 16 : parent 16,11 : caption 16,chr$(9) + "Imprimer"
     sub_menu 17 : parent 17,11 : caption 17,chr$(9) + "Quitter"
    
     sub_menu 20 : parent 20,10 : caption 20,"Edition"
     sub_menu 21 : parent 21,20 : caption 21,chr$(9) + "Annuler"
     sub_menu 22 : parent 22,20 : caption 22,chr$(9) + "Couper"
     sub_menu 23 : parent 23,20 : caption 23,chr$(9) + "Copier"
     sub_menu 24 : parent 24,20 : caption 24,chr$(9) + "Coller"
     sub_menu 25 : parent 25,20 : caption 25,chr$(9) + "Rechercher ..."
     sub_menu 26 : parent 26,20 : caption 26,chr$(9) + "Remplacer ..."
    
    
for i = 12 to 17 : on_click i,clic : next i
for i = 21 to 26 : on_click i,clic : next i
end
rem ============================================================================
clic:
   select number_click
   ' menu Fichier
       case 12 : message "Nouveau"
       case 13 : message "Ouvrir"
       case 14 : message "Enregistrer"
       case 15 : message "Enregistrer sous"
       case 16 : message "Imprimer"
       case 17 : message "Quitter"
       ' -----------------------------------
   ' menu Edition
       case 21 : message "Annuler"
       case 22 : message "Couper"
       case 23 : message "Copier"
       case 24 : message "Coller"
       case 25 : message "Rechercher ...."
       case 26 : message "Remplacer ...."
   end_select
return
rem ============================================================================

rem ============================================================================
rem        Exemple de menu
rem        Pour choisir un sous-menu, vous pouvez :
rem        1) cliquer sur son nom
rem        2) ou tapper la lettre soulignée correspondante
rem ============================================================================
label clic
dim i
main_menu 10
     sub_menu 11 : parent 11,10 : caption 11,"Fichier"
     sub_menu 12 : parent 12,11 : caption 12,chr$(9) + "Nouveau"
     sub_menu 13 : parent 13,11 : caption 13,chr$(9) + "Ouvrir"
     sub_menu 14 : parent 14,11 : caption 14,chr$(9) + "Enregistrer"
     sub_menu 15 : parent 15,11 : caption 15,chr$(9) + "Enregistrer Sous"
     sub_menu 16 : parent 16,11 : caption 16,chr$(9) + "Imprimer"
     sub_menu 17 : parent 17,11 : caption 17,chr$(9) + "Quitter"

     sub_menu 20 : parent 20,10 : caption 20,"Edition"
     sub_menu 21 : parent 21,20 : caption 21,chr$(9) + "Annuler"
     sub_menu 22 : parent 22,20 : caption 22,chr$(9) + "Couper"
     sub_menu 23 : parent 23,20 : caption 23,chr$(9) + "Copier"
     sub_menu 24 : parent 24,20 : caption 24,chr$(9) + "Coller"
     sub_menu 25 : parent 25,20 : caption 25,chr$(9) + "Rechercher ..."
     sub_menu 26 : parent 26,20 : caption 26,chr$(9) + "Remplacer ..."
    
     sub_menu 30 : parent 30,10 : caption 30,"Langues"
     sub_menu 31 : parent 31,30 : caption 31,chr$(9) + "Langue française" : mark_on 31
     sub_menu 32 : parent 32,30 : caption 32,chr$(9) + "English Language"
     sub_menu 33 : parent 33,30 : caption 33,chr$(9) + "Autres "
         sub_menu 34 : parent 34,33 : caption 34,chr$(9) + "Italiano"
         sub_menu 35 : parent 35,33 : caption 35,chr$(9) + "Dutch"


for i = 12 to 17 : on_click i,clic : next i
for i = 21 to 26 : on_click i,clic : next i
for i = 31 to 35 : on_click i,clic : next i
end
rem ============================================================================
clic:
   select number_click
   ' menu Fichier
       case 12 : message "Nouveau"
       case 13 : message "Ouvrir"
       case 14 : message "Enregistrer"
       case 15 : message "Enregistrer sous"
       case 16 : message "Imprimer"
       case 17 : message "Quitter"
       ' -----------------------------------
   ' menu Edition
       case 21 : message "Annuler"
       case 22 : message "Couper"
       case 23 : message "Copier"
       case 24 : message "Coller"
       case 25 : message "Rechercher ...."
       case 26 : message "Remplacer ...."
   ' menu Langues
       case 31 : message "Langue française par défaut"
       case 32 : message "English Language"
       case 34 : message "Italiano"
       case 35 : message "Dutch"
   end_select
return
rem ============================================================================