Je ne crois pas que cela soit très orthodoxe, mais ça fonctionne sous Windows. Est ce aussi le cas sur les autre OS ?
Code : Tout sélectionner
If OpenWindow(0, 0, 0, 500, 180, #Null$, #PB_Window_SystemMenu | #PB_Window_ScreenCentered|#PB_Window_SizeGadget)
ID = CreateStatusBar(0, WindowID(0))
UseGadgetList(ID)
ContainerGadget(2, 1, 1, 250, 22)
ButtonGadget(3, 0, 0, 150, 22, "Je suis dans la statusbar")
CheckBoxGadget(4, 150, 0, 100, 22, "Et moi aussi")
CloseGadgetList()
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow : Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 3 : Debug "bouton"
Case 4 : Debug "Check"
EndSelect
EndSelect
Until Quit = 1
EndIf
End