Code : Tout sélectionner
OpenWindow (0,10,10,200,200, "ess", #PB_Window_SystemMenu )
CreateGadgetList ( WindowID (0))
DateGadget( 51,10,150,100,20)
PanelGadget(1, 10, 10, 180, 100)
AddGadgetItem(1, -1, "ess")
DateGadget( 52,10,10,100,20)
Repeat
event= WaitWindowEvent ()
Select event
Case #PB_Event_Gadget ; *****************Choix d'un bouton
Select EventGadget()
EndSelect
EndSelect
Until event= #WM_CLOSE