CTimer est une classe
GLOBAL
Frequence est un entier
NumTimer1 est un entier
FIN
PROCEDURE Timer1()
::NumTimer1=TimerSys("Ctimer::Aff_Test",::Frequence)
PROCEDURE Modif_Freq(NewFreq est un entier)
FinTimerSys(::NumTimer1)
::Frequence=NewFreq
SI ::NumTimer1<>0 ALORS :Timer1()
PROCEDURE GLOBALE Aff_Test()
Trace("Yes")
TTimer est un CTimer
TTimer:Modif_Freq(500)
TTimer:Timer1()
TTimer:Modif_Freq(100)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1375&post_id=5613