Code : Tout sélectionner
Sortie.b
OpenWindow(0,X,Y,200,200,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered,"")
Repeat
Select WindowEvent()
Case #PB_Event_CloseWindow
Sortie = 1
EndSelect
; commandes ici
Until Sortie = 1
End
Code : Tout sélectionner
Sortie.b
OpenWindow(0,120,20,200,200,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered,"")
SetTimer_(WindowID(),1,1,0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Sortie = 1
Case #WM_Timer
; commandes ici
EndSelect
Until Sortie = 1
End
Quel est l'inetrêt de cette commande ?
Merci