Question sur la façon de programmer en pb ..
Publié : dim. 18/mai/2008 21:07
bonsoir
juste une question pour les programmeurs PB
quel version du code est le mieux pour gerer plusieurs fenetres et comment vous programmer plusieurs fenetres quel est votre methode ?
code1: sans les procedures :
Code2 : avec les procedures :
merci
juste une question pour les programmeurs PB
quel version du code est le mieux pour gerer plusieurs fenetres et comment vous programmer plusieurs fenetres quel est votre methode ?
code1: sans les procedures :
Code : Tout sélectionner
Enumeration
#Fenetre_0
#Fenetre_1
EndEnumeration
Enumeration
#bouton_0
EndEnumeration
If OpenWindow(#Fenetre_0,0,0,340,200,"Ma Fenetre",#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
ButtonGadget(#bouton_0,100,50,140,20," Ouvrir une autre fenetre")
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #bouton_0: OpenWindow(#Fenetre_1,0,0,240,120,"Coucou",#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
EndSelect
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Fenetre_1
CloseWindow(#Fenetre_1)
Case #Fenetre_0
Quitter=#True
EndSelect
EndSelect
Until Quitter
End
EndIf
Code : Tout sélectionner
Enumeration
#Fenetre_0
#Fenetre_1
EndEnumeration
Enumeration
#bouton_0
EndEnumeration
Procedure Main()
If OpenWindow(#Fenetre_0,0,0,340,200,"Ma Fenetre",#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
ButtonGadget(#bouton_0,100,50,140,20," Ouvrir une autre fenetre")
EndIf
EndIf
EndProcedure
Procedure Fenetre_1()
If OpenWindow(#Fenetre_1,0,0,240,120,"Coucou",#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
EndIf
EndProcedure
Main()
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #bouton_0:Fenetre_1()
EndSelect
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Fenetre_1
CloseWindow(#Fenetre_1)
Case #Fenetre_0
Quitter=#True
EndSelect
EndSelect
Until Quitter
End