PureBasic

Bsr à tous,
J'ai créer un programme avec un bouton qui ouvre une deuxième fenêtre.
Jusque là, tout va bien la 2ème fenêtre s'initialise correctement.
Mais lorsque je veux fermer cette deuxième fenêtre, et retomber ainsi sur la 1ère, je n'arrive pas à quitter la boucle de la 2ème fenêtre.
Merci d'avance si quelqu'un trouve solution à mon problème....
open windows(..........)
Repeat
EventID=WindowEvent()
Select EventMenuID()
Case 150
Affichier2ème fenêtre()
EndSelect
Until EventID = #PB_EventCloseWindow

function Affichier2ème fenêtre
---Appelle plusieur fonction pour la definition des gadgets
Repeat
Select WindowEvent()
Case #PB_EventCloseWindow: End
If EventType()=#PB_EventType_LeftClick
ID=EventGadgetID()
A$=GetGadgetItemText(ID,GetGadgetState(ID),0)
Select A$
Case "Lundi"
MessageRequester("Gadget: ","Lundi",0)
Case "Mardi"
Case "Mercredi"
Case "Jeudi"
Case "Vendredi"
Case "Samedi"
Case "Dimanche"
EndSelect
EndIf
Select EventGadgetID()
Case 1
Case 2
HideGadget(2, 1)
EndSelect
Case #PB_EventGadget:
If EventGadgetID() = 29
CloseWindow(2)
Quit = 1 Malgré cela apparamment je ne sors toujours pas de la bouche (il s'arrête gadget object non initialisé, appartenant à la 2ème fenetre alors qu'il s'est très bien affiché lors de l'ouverture....Comprends Rien!!!
EndIf
EndSelect
Until Quit=1
endfunction

alors faudrait songer à mettre un titre explicite , help ça ne veut rien dire !
ensuite n'oublie pas d'utiliser les balises

Code : Tout sélectionner

 pour rendre ton post plus lisible.
Tu peux éditer ton post pour le remettre en forme , ça fera un bon exercice :)

Code : Tout sélectionner

open windows(..........)

C'est pas une fonction ça.
Essaye de nous mettre quelque chose de complet, STP

je veut pas dire de betise , mais il me semble inutile
d'employer deux boucle d'event !!
Confirmation ?

Confirmé !

Code : Tout sélectionner

; Constantes Window
#Window_0       = 0
#Window_1       = 1

; Constantes Gadget
#Btn_New = 0

If OpenWindow(#Window_0, 100, 100, 200, 100, #PB_Window_SystemMenu , "Fenêtre 1",0)
  If CreateGadgetList(WindowID(#Window_0))
    ButtonGadget(#Btn_New, WindowWidth()/2 - 50, WindowHeight()-40, 100, 25, "Nouvelle")
  EndIf
EndIf

Repeat
  Select WindowEvent()
    Case #PB_EventGadget
      Select EventGadgetID()
        Case #Btn_New
          If OpenWindow(#Window_1, 200, 300, 200, 100, #PB_Window_SystemMenu, "Fenetre 2")
            ;If CreateGadgetList(WindowID(#Window_1))
              ;;; Tes gadgets pour le 2° fenêtre ici
            ;EndIf
          EndIf
      EndSelect
      
    Case #PB_EventCloseWindow
      Select EventWindowID()
        Case #Window_1
          CloseWindow(#Window_1)
          UseWindow(#Window_0)
        Case #Window_0
          Quit = 1
          
      EndSelect
  EndSelect
Until Quit

PureBasic

Help

Help