PureBasic

Code : Tout sélectionner

Procedure.c RefreshWindow(NumWindow)
  ; rafraichir une fenêtre par Ar-S / 2011
  Protected Refresh_It.c
  Refresh_It = RedrawWindow_(WindowID(NumWindow),0,0,#RDW_UPDATENOW) 
  If Refresh_It = #False  
    ProcedureReturn 0
  Else
    ProcedureReturn 1
  EndIf
EndProcedure

; Example
If OpenWindow(0, 614, 185, 500, 126, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
  ButtonGadget(1, 310, 10, 175, 24, "Rafraichir")
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Rafraichir=RefreshWindow(0)
            ; Si résultat = 0 echec sinon resultat = 1
            Debug Rafraichir
            
        EndSelect
        
      Case #PB_Event_CloseWindow
        Select EventWindow()
          Case 0
            quite = 1
        EndSelect
    EndSelect
  Until quite = 1
  CloseWindow(0)
  End
EndIf