Problême d'Affichagede Fenêtre

[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

[cederavic]

pas très parlant comme code

[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.

[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

[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().

[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

[Cagou-77]

Merci, s'est aussi une solution

Merci Régis

Bon Après Midi