Mars 2024 | 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 | Calendrier |
|
| | Réinitialisation de SET_FOCUS | |
| | Auteur | Message |
---|
Jean Claude
Nombre de messages : 5948 Age : 69 Localisation : 83 Var Date d'inscription : 07/05/2009
| Sujet: Réinitialisation de SET_FOCUS Lun 12 Oct 2009 - 16:07 | |
| Bonjour tout le monde ""hello word", Je ne sais pas si j'ai choisi le bon post, mais que ce soit un problème de programmation ou pas, çà BUG Je ne réussis pas à ce que SET_FOCUS fonctionne au 2eme passage et après. Copier ce code et entrez succéssivement avec une référence, puis sans, 2 à 3 fois. J'attends vos commentaires ou vos solutions. - Code:
-
label quit,demar,choix,ajoute,suitajout,suitajou dim t$
left 0,384:top 0,333:width 0,550:height 0,492 caption 0,"enregistrements succécifs avec SET_FOCUS" combo 1:left 1,40:top 1,243:item_add 1,"Ajouter une Référence" item_add 1,"Sans Référence":hide 1
edit 2:left 2,41:top 2,323:hide 2
button 3:left 3,171:top 3,325::width 3,20:height 3,20:caption 3,"OK":hide 3
button 4:left 4,430:top 4,407:caption 4,"QUITTER" on_click 4,quit
list 5:left 5,40:top 5,30:width 5,458:height 5,173 gosub demar end rem ------------------------------------------------------------------------- demar: show 1:active 1:text 1,"" on_click 1,choix return
choix: t$=upper$(text$(1)) if left$(t$,1)="A" then show 2:active 2:text 2,"":set_focus 2:goto ajoute if left$(t$,1)="S" then t$="----------":item_add 5,t$ inactive 1:text 1,"" hide 2:hide 3 goto demar return
ajoute: t$=upper$(text$(2)) on_change 2,suitajout return
suitajout: show 3 on_click 3,suitajou return
suitajou: t$=upper$(text$(2)) item_add 5,t$ hide 2:hide 3 goto demar:rem <<<<<<<<<<<<<<< On boucle pour remplir le LIST 5 return rem -------------------------------------------------------------------------- quit: terminate
| |
| | | Invité Invité
| Sujet: Re: Réinitialisation de SET_FOCUS Lun 12 Oct 2009 - 20:40 | |
| Je viens de regarder ton programme et j'ai fais la correction Si tu as déjà regarder hier soir, j'ai repris la correction car en mettant de l'ordre pour mieu voir, j'ai retiré par mégarde une ligne, et cela ne fonctionnait plus comme prévu. Regarde la correction. - Code:
-
demar: show 1:active 1:text 1,"" on_click 1,choix return
choix: t$=upper$(text$(1)) :inactive 1 :' INACTIVE 1 déplacé if left$(t$,1)="A" then show 2:active 2:text 2,"":set_focus 2:goto ajoute if left$(t$,1)="S" then t$="----------":item_add 5,t$ text 1,"" hide 2:hide 3 goto demar return
ajoute: t$=upper$(text$(2)) on_change 2,suitajout return
suitajou: t$=upper$(text$(2)) item_add 5,t$ hide 2:hide 3 goto demar:rem <<<<<<<<<<<<<<< On boucle pour remplir le LIST 5 ' return inutile
suitajout: show 3 :set_focus 2 :' set_focus 2 rajouté on_click 3,suitajou return
A un moment, à show 3 dans suitajout, le combo s'affiche sur fond vert, donc il prend le controle, et pour cette raison SET_FOCUS 2 s'impose. Dans choix, inactive 1 est trop bas, vu que tu quittes par goto avant. Là set_focus fonctionne, seulement avec la vitesse, on ne voit rien. Cette fois-ci, je sais que cela marche, vu que je viens de faire copier/coller depuis ce texte, vers Panoramic, et le focus va réellement sur l'EDIT comme tu le demandais. Salutation à+ |
| | | Jean Claude
Nombre de messages : 5948 Age : 69 Localisation : 83 Var Date d'inscription : 07/05/2009
| Sujet: Re: Réinitialisation de SET_FOCUS Mar 13 Oct 2009 - 8:14 | |
| Je te remercies. Jai beaucoups de mal a gérer les objets à l'intérieur d'une boucle. Je n'était pas loin de la solution. tu m'a fait gagné du temps. A+ | |
| | | Invité Invité
| Sujet: Re: Réinitialisation de SET_FOCUS Mar 13 Oct 2009 - 8:23 | |
| Je te donne le code qui m'a permit de comprendre, pour suivre. Il y a des déplacements de set_focus, mais ça marche aussi. On ne voit plus ici l'affichage en vert sur le combo, suite au différents changement pour suivre le programme. Par contre, le choix des étiquettes, c'est absolument ambigu pour suivre le programme. - Code:
-
label quit,demar,choix,ajoute,suitajout,suitajou dim t$
left 0,760:top 0,0:width 0,510:height 0,492 caption 0,"enregistrements succécifs avec SET_FOCUS"
combo 1:left 1,40:top 1,243:item_add 1,"Ajouter une Référence" item_add 1,"Sans Référence":hide 1
edit 2:left 2,41:top 2,323:hide 2
button 3:left 3,171:top 3,325::width 3,20:height 3,20:caption 3,"OK":hide 3
button 4:left 4,430:top 4,407:caption 4,"QUITTER" on_click 4,quit
list 5:left 5,40:top 5,30:width 5,200 :height 5,173 memo 6:left 6,250:width 6,230:top 6,30:height 6,173
gosub demar end rem -------------------------------------------------------------------------
demar: item_add 6,"demar":item_add 6,""
show 1:active 1:text 1,"" on_click 1,choix return
choix: item_add 6,"choix":wait 1000 t$=upper$(text$(1)) :inactive 1 if left$(t$,1)="A" then show 2:active 2:text 2,"":goto ajoute if left$(t$,1)="S" then t$="----------":item_add 5,t$ text 1,"" hide 2:hide 3 goto demar return
ajoute: item_add 6,"ajoute" :wait 1000 t$=upper$(text$(2))
set_focus 2 on_change 2,suitajout item_add 6,"on_change 2,suitajout" return
suitajou: item_add 6,"suitajou":wait 1000 t$=upper$(text$(2)) item_add 5,t$ hide 2:hide 3 goto demar:rem <<<<<<<<<<<<<<< On boucle pour remplir le LIST 5 ' return inutile suitajout: item_add 6,"suitajout >on a rentré un caractère<":item_add 6,"":wait 1000 show 3
on_click 3,suitajou set_focus 2 item_add 6,"on_click 3,suitajout" return
rem -------------------------------------------------------------------------- quit: terminate Bon courage A+ |
| | | Contenu sponsorisé
| Sujet: Re: Réinitialisation de SET_FOCUS | |
| |
| | | | Réinitialisation de SET_FOCUS | |
|
| Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |