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