Page 1 sur 1
Besoin d'un peu aide svp
Publié : mar. 13/avr./2021 16:01
par 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
Re: Besoin d'un peu aide svp
Publié : mar. 13/avr./2021 18:44
par 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
Re: Besoin d'un peu aide svp
Publié : mar. 13/avr./2021 21:41
par grendizer
Un grand merci a toi mon ami
Re: Besoin d'un peu aide svp
Publié : jeu. 15/avr./2021 18:21
par Kwai chang caine
Content si c'est ce que tu cherchais à faire
Re: Besoin d'un peu aide svp
Publié : ven. 16/avr./2021 9:52
par grendizer
Merci mon ami
tu sais entre Lua le PB , le c++ et le gml , je me rappelle plus des fois .
Re: Besoin d'un peu aide svp
Publié : sam. 17/avr./2021 16:38
par Kwai chang caine
Rassure toi....moi entre PB, PB, PB et le PB ça me fait exactement la même chose
