Page 1 sur 1
Problême d'Affichagede Fenêtre
Publié : mar. 12/avr./2005 5:45
par Cagou-77
exemple de mon code :
Code : Tout sélectionner
affichage de la 1ère fenêtre
Repeat
clic sur Gadget
Affichage de la deuxième Fenêtre
Repeat
--------------------------> Clic sur Button Quit
Until
< ------------------------- Retour
Problême je ne réaffiche pas la 1ère fenêtre Pourquoi ?
Until
Je n'arrive pas à réafficher la première fenêtre correctement c'est à dire que la fenêtre est affichée mais qu'il n'y a plus les Gadgets d'affichés donc
progr inopérant .
se serait bien si quelqu'un avait une soluce
Merci
Publié : mar. 12/avr./2005 6:03
par cederavic
pas très parlant comme code
Publié : mar. 12/avr./2005 8:13
par Jacobus
C'est vrai que c'est pas clair....
Mais si je me fie à ce que je vois, je dirais que tu devrais séparer les boucles et non les imbriquer.
Tu devrais plutôt faire dans le genre,
Procédure fenetre 1
OpenWindow(1, etc)
Liste des Gadgets
Repeat
Prévoir ici qu'en cliquant sur un gadget ça ferme ta fenêtre 1 pour ouvrir la seconde.
If Event = #PB_Event_Gadget
CloseWindow(1)
Until
Endprocedure
Procédure fenetre 2
OpenWindow(2, etc)
Gadgets
Repeat
Until
Endprocedure
Je suis pas vraiment sûr que ce soit plus clair
Si j'ai le temps je te ferais un exemple concret.
Publié : mar. 12/avr./2005 11:01
par Cagou-77
J'ai trouvé le problême d'affichage des fenêtres cela venait tout simplement de l'énumération des fenêtres et gadgets que j'avais mal déterminée .
exemple :
Code : Tout sélectionner
;- Window Constants
;
Enumeration
#Newgest
#ClasseurClient
#WindArt
#WCodPost
#PieceFour
EndEnumeration
;Debug #newgest
;- Gadget Constants
; Newgest
Enumeration
#NgOng
#FrameZrecC
#RecIntiC
#RecTeleC
#LstClie
#FrameZrecF
#RecCompF
#RecIntiF
#RecTeleF
#LstFour
#lDate
#NgDate
#NgButAban
#RecCompC
#bArticles
EndEnumeration
; j'ai incrémenter l'énumération et le problême a disparu
;- Window Constants
;
Enumeration 0
#Newgest
#ClasseurClient
#WindArt
#WCodPost
#PieceFour
EndEnumeration
;Debug #newgest
;- Gadget Constants
; Newgest
Enumeration 50
#NgOng
#FrameZrecC
#RecIntiC
#RecTeleC
#LstClie
#FrameZrecF
#RecCompF
#RecIntiF
#RecTeleF
#LstFour
#lDate
#NgDate
#NgButAban
#RecCompC
#bArticles
EndEnumeration
Merci de votre attention
Publié : mar. 12/avr./2005 11:10
par dlolo
Salut, la solution de Jacobus doit fonctionner mais tu peux aussi ouvrir les deux fenêtres puis utiliser HideWindow() pour montrer ou cacher la fenêtre adéquate.
Je ne suis pas un expert dans l'utilisation des fenêtres mais avec ce principe tu doit même pouvoir faire communiquer les deux fenêtres entre elles. Avec la comande Usewindow().
Publié : mar. 12/avr./2005 12:43
par Le Soldat Inconnu
pour ne pas avoir de prob avec les enumerations, mieux vaut mettre toute les contanstes dans le même enumerations
Code : Tout sélectionner
Enumeration
;- Window Constants
#Newgest
#ClasseurClient
#WindArt
#WCodPost
#PieceFour
;- Gadget Constants
#NgOng
#FrameZrecC
#RecIntiC
#RecTeleC
#LstClie
#FrameZrecF
#RecCompF
#RecIntiF
#RecTeleF
#LstFour
#lDate
#NgDate
#NgButAban
#RecCompC
#bArticles
;- Window Constants
;
#Newgest
#ClasseurClient
#WindArt
#WCodPost
#PieceFour
;- Gadget Constants
#NgOng
#FrameZrecC
#RecIntiC
#RecTeleC
#LstClie
#FrameZrecF
#RecCompF
#RecIntiF
#RecTeleF
#LstFour
#lDate
#NgDate
#NgButAban
#RecCompC
#bArticles
EndEnumeration
Publié : mar. 12/avr./2005 12:49
par Cagou-77
Merci, s'est aussi une solution
Merci Régis
Bon Après Midi