Code : Tout sélectionner
Enumeration Fenetres
#Fenetre_principale
EndEnumeration
Enumeration Gadgets
#Cnv
#Btn_0
#Btn_1
EndEnumeration
Global Evenement
OpenWindow(#Fenetre_principale, 0, 0, 200, 100, "Essai gadget sur canvas", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CanvasGadget(#Cnv, 0, 0, 200, 50, #PB_Canvas_Container)
ButtonGadget(#Btn_0, 60, 10, 75, 20, "Mon bouton 0")
CloseGadgetList()
ButtonGadget(#Btn_1, 60, 60, 75, 20, "Mon bouton 1")
Repeat
Evenement = WaitWindowEvent()
Select Evenement
Case #PB_Event_Gadget
Select EventGadget()
Case #Btn_0
Debug "Vous avez cliqué le bouton 0"
Case #Btn_1
Debug "Vous avez cliqué le bouton 1"
EndSelect
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Fenetre_principale
CloseWindow(#Fenetre_principale)
Break
EndSelect
EndSelect
ForEver