Besoin d'un peu aide svp

[grendizer]

Bonjour
je code un peu avec pb et pour fermer la deuxieme fenetre quand on clique sur quitter je sais pas comment m'y prendre ..

Code : Tout sélectionner

EnableExplicit

;*** Pour la fenetre principale 
Enumeration
  #Main_Form
  #Main_Form2
EndEnumeration

;***  Gadgets
Enumeration
  #B_test
  #b_quit
 
 EndEnumeration






;** fenetre 2 
Procedure evOpen()
  OpenWindow( #Main_Form2,0,0,320,380," test2 ",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
  ButtonGadget(#b_quit,10,10,120,20,"Quitter")
EndProcedure
;** Procédure pour fermer la fenetre principale
Procedure evClose()
  CloseWindow(#MAIN_FORM)
End
EndProcedure
;** fenetre principale 
Procedure OpenMainForm()
  OpenWindow( #Main_Form,0,0,800,600,"Windows test ",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
  BindEvent(#PB_Event_CloseWindow,@evClose(),#Main_Form)
  ButtonGadget(#B_test,10,10,120,20,"Test")
  BindGadgetEvent(#B_test,@evOpen())
EndProcedure  

  

OpenMainForm()
Repeat
WaitWindowEvent()
ForEver

[Kwai chang caine]

Peut-être comme ça

Code : Tout sélectionner

;*** Pour la fenetre principale
Enumeration
  #Main_Form
  #Main_Form2
EndEnumeration

;***  Gadgets
Enumeration
  #B_test
  #b_quit
EndEnumeration

;** fenetre 2
Procedure evOpen()
  OpenWindow( #Main_Form2,0,0,320,380," test2 ",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
  ButtonGadget(#b_quit,10,10,120,20,"Quitter")
EndProcedure

;** Procédure pour fermer la fenetre sur laquelle on clique sur la croix
Procedure evClose()
 
 Fenetre = EventWindow()
 CloseWindow(Fenetre)
 
 If Fenetre = #Main_Form
  End
 EndIf 
 
EndProcedure

;** fenetre principale
Procedure OpenMainForm()
  OpenWindow( #Main_Form,0,0,800,600,"Windows test ",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
  BindEvent(#PB_Event_CloseWindow,@evClose(),#Main_Form)
  BindEvent(#PB_Event_CloseWindow,@evClose(),#Main_Form2)
  ButtonGadget(#B_test,10,10,120,20,"Test")
  BindGadgetEvent(#B_test,@evOpen())
EndProcedure 

OpenMainForm()

Repeat  
 
 If WaitWindowEvent() = #PB_Event_Gadget And EventGadget() = #b_quit
  evClose()
 EndIf
   
ForEver

[grendizer]

Un grand merci a toi mon ami

[Kwai chang caine]

Content si c'est ce que tu cherchais à faire

[grendizer]

Merci mon ami

tu sais entre Lua le PB , le c++ et le gml , je me rappelle plus des fois .

[Kwai chang caine]

Rassure toi....moi entre PB, PB, PB et le PB ça me fait exactement la même chose