Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
 | | Sujet: Re: Auto création d'un Menu Panoramic Sam 26 Sep 2015 - 22:51 | |
| Ok Pascal ! Je livre ma version de la création d'un menu déroulant. Il se retrouvera peut être bientôt dans GPP... A savoir que le caractère & dont Jean Claude nous a parlé précédemment est là pour souligné dans le menu la lettre pouvant sélectionner le menu par ALT+ la lettre en question. Donc après réflexion rien d'anormal chez Panoramic ! Cette lettre apparaît aussi dans mon menu. Si vous souhaitez corrigé le nom d'un menu, vous pouvez la laisser, ça ne change rien a la modification du nom que vous changerez !  PS : je n'ai pas encore intégré la sauvegarde, mais c'est prévu, bien entendu !  - Code:
-
DIM num% , parent% , choix%
LABEL choix , saisie , selection
WIDTH 0,600 : HEIGHT 0,100
FORM 1 : LEFT 1,605 : WIDTH 1,185 : HEIGHT 1,220 : FONT_NAME 1,"Webdings" : FONT_SIZE 1,35 : BORDER_SMALL 1 : FONT_NAME 1,"Arial": FONT_SIZE 1,12
ALPHA 2 : PARENT 2,1 : LEFT 2,5 : TOP 2,6 : WIDTH 2,160 : HEIGHT 2,25 : CAPTION 2,"Sélection : "
EDIT 3 : PARENT 3,1 : LEFT 3,5 : TOP 3,30 : WIDTH 3,160 : HEIGHT 3,25
CONTAINER_OPTION 4 : PARENT 4,1 : LEFT 4,5 : TOP 4,50 : WIDTH 4,160 : HEIGHT 4,95 : FONT_NAME 4,"Arial": FONT_SIZE 4,10
OPTION 5 : PARENT 5,4 : LEFT 5,5 : TOP 5,10 : WIDTH 5,150 : MARK_ON 5 : CAPTION 5,"Ajouter MENU BASE" : ON_CLICK 5,choix
OPTION 6 : PARENT 6,4 : LEFT 6,5 : TOP 6,30 : WIDTH 6,150 : INACTIVE 6 : CAPTION 6,"Ajouter SOUS MENU" : ON_CLICK 6,choix
OPTION 7 : PARENT 7,4 : LEFT 7,5 : TOP 7,50 : WIDTH 7,150 : INACTIVE 7 : CAPTION 7,"Modifier le nom" : ON_CLICK 7,choix
OPTION 8 : PARENT 8,4 : LEFT 8,5 : TOP 8,70 : WIDTH 8,150 : INACTIVE 8 : CAPTION 8,"Supprimer l'élément" : ON_CLICK 8,choix
BUTTON 9 : PARENT 9,1 : LEFT 9,5 : TOP 9,150 : WIDTH 9,160 : HEIGHT 9,31 : FONT_NAME 9,"Arial": FONT_SIZE 9,12 : CAPTION 9,"Valider l'option" : ON_CLICK 9,saisie
MAIN_MENU 11
num%=12 : choix%=5
END
choix:
choix%=NUMBER_CLICK
IF choix%=5 THEN CAPTION 2,"Sélection : " : TEXT 3,"" : INACTIVE 6 : INACTIVE 7 : INACTIVE 8
IF choix%=6 THEN CAPTION 2,TEXT$(3) : TEXT 3,""
IF choix%=7 THEN CAPTION 2,"Sélection : " : TEXT 3,CAPTION$(parent%)
RETURN
saisie:
SELECT choix%
CASE 5 : IF trim$(TEXT$(3))<>"" THEN SUB_MENU num% : PARENT num%,11 : CAPTION num%,TEXT$(3) : ON_CLICK num%,selection : num%=num%+1 : CAPTION 2,"Sélection : " : TEXT 3,"" : ' Ajouter MENU
CASE 6 : IF trim$(TEXT$(3))<>"" THEN SUB_MENU num% : PARENT num%,parent% : CAPTION num%,TEXT$(3) : TEXT 3,"" : ON_CLICK num%,selection : num%=num%+1 : ' Ajouter SOUS MENU
CASE 7 : CAPTION parent%,TEXT$(3) : CAPTION 2,"Sélection : " : TEXT 3,"" : ' Modifier le nom
CASE 8 : OFF_CLICK parent% : DELETE parent% : MARK_ON 5 : INACTIVE 6 : INACTIVE 7 : INACTIVE 8 : CAPTION 2,"Sélection : " : TEXT 3,"" : ' Supprimer l'élément
END_SELECT
RETURN
selection:
parent%=NUMBER_CLICK : ACTIVE 6 : ACTIVE 7 : ACTIVE 8 : MARK_ON 6
CAPTION 2,"Sélection : "+CAPTION$(parent%)
RETURN | |
|
Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Auto création d'un Menu Panoramic Dim 27 Sep 2015 - 12:08 | |
| Bonjour tous le monde ! Je viens rompre ce long silence sur le forum depuis hier soir... J'ai corrigé ma version du menu juste dans le post ci dessus. Si le test tente certains... | |
|
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Dim 27 Sep 2015 - 12:14 | |
| Je viens de tester, j' aime bien. C' est clair et intuitif, tout ce qui me plait.  Bravo Minibug | |
|
Jean Claude
Nombre de messages : 5950
Age : 70
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: Auto création d'un Menu Panoramic Dim 27 Sep 2015 - 13:27 | |
| J'ai testé aussi, mais ça ne fonctionne pas au top. Une fois avoir validé l'option, il n'y a pas d'autre alternative que de créer un nouveau "Menu Base". Peut mieux faire ...  A+ | |
|
Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| |
Jean Claude
Nombre de messages : 5950
Age : 70
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: Auto création d'un Menu Panoramic Dim 27 Sep 2015 - 13:53 | |
| Ha! oui, là c'est mieux. Mais pour un novice, ça manque d'explication.  Sinon ça fonctionne bien, reste à prévoir la sortie pour enregistrer le code. C'est pour le moment une des meilleurs solutions... Mais, je n'ai pas déclaré forfait..... A+ | |
|
pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: Re: Auto création d'un Menu Panoramic Dim 27 Sep 2015 - 16:35 | |
| suite a mes tests
pas de bavure, pas de bug découvert et sa change
de ce que je connais jusqu’à maintenant. Maintenant il ne reste plus
qu'a le mettre dans GPP mais ça c'est une autre histoire | |
|
Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Auto création d'un Menu Panoramic Dim 27 Sep 2015 - 16:46 | |
| merci pour ton retour Pascal ! Pour l'intégration dans GPP pas d'inquiétudes, j'ai aussi ma petite idée. Ça sera peut être pas pour tout de suite mais maintenant le code existe. Il n'y a plus qu'a l'intégrer. Merci a tous pour votre aide.  | |
|
pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: Re: Auto création d'un Menu Panoramic Dim 27 Sep 2015 - 17:16 | |
| minibug
je ne doute pas de ta ruse, j'ai confiance en toi
malin comme tu est :lol!: :lol!: | |
|
Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| |
pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: Re: Auto création d'un Menu Panoramic Dim 27 Sep 2015 - 17:22 | |
| Dit minibug
à la place de la p'tite bête que tu a mis
sur ton avatar c'est une tête de renard
que tu aurai du mettre!!!!!!!! | |
|
Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Auto création d'un Menu Panoramic Dim 27 Sep 2015 - 20:25 | |
| non ! le renard c'est un trop mauvais souvenir... Lorsque j'étais jeune (il y a bien longtemps!!) je regardais une animation qui s'appelait aglaé et sidonieLe renard, qui s'appelé croquetout me faisait toujours très peur... Voila une photo : aglaé et sidonie | |
|
Jean Claude
Nombre de messages : 5950
Age : 70
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: Auto création d'un Menu Panoramic Mer 30 Sep 2015 - 13:50 | |
| Je relance ce sujet pour vous informer que j'ai presque terminé ma version, que je n'ai pas abandonnée. J'ouvrirai un nouveau post d'ici à quelque jour. @Klaus, Je viens d'étudier le code que tu as fourni plus haut. Il présente, à mon avis, un inconvénient. Pourquoi mettre d'office un ON_CLICK (surtout pour un menu de premier niveau). Bref, je sais que tu as fait ce code pour montrer la voie à suivre.... @Minibug. J'ai tenté au moins 4 à 5 fois de revoir ton code (qui marche bien) pour changer tous les numéros d'objet. Et à chaque fois ton code ne fonctionnais plus.  Tous ça, pour dire que la création d'objet par des numéros d'identification numériques, c'est galère à modifier. @tous, Il me reste à faire les sauvegardes (du code, et autre). Ensuite faire un gros test. Et pour finir, mettre le code en ligne. A+ | |
|
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Auto création d'un Menu Panoramic Mer 30 Sep 2015 - 18:36 | |
| - Citation :
- Il présente, à mon avis, un inconvénient. Pourquoi mettre d'office un ON_CLICK (surtout pour un menu de premier niveau).
Bref, je sais que tu as fait ce code pour montrer la voie à suivre.... Tu as vu juste - c'est pour montrer comment on fait. Rien n'empêche de paramétrer cela, ou, mieux, dans la routine on_click, simplement ignorer les numéros d'objet pour lesquels on n'en veut pas, dans le select...case. C'est on ne peut plus simple... | |
|
Contenu sponsorisé
| | Sujet: Re: Auto création d'un Menu Panoramic | |
| |
|
Calendrier
