Dans ce cas, il ne faut pas donner de n° au timer, il faut récupérer son identifiant quand tu le crée, et tu testes cet identifiant dans la procédure pour savoir quel timer à envoyé le message.
Code : Tout sélectionner
;/Constantes Window
Enumeration
#Window_0
EndEnumeration
;/Constantes Gadget
Enumeration
#Btn_Quit
EndEnumeration
Global T1,T2
Procedure TimerProc(hwnd.l, uMsg.l, idEvent.l, dwTime.l)
Select uMsg
Case #WM_TIMER
Select idEvent
Case T1
Debug "timer 1"
Case T2
Debug "timer 2"
EndSelect
EndSelect
EndProcedure
If OpenWindow(#Window_0, 300, 300, 300, 200, #PB_Window_SystemMenu, "Fenêtre 1",0)
If CreateGadgetList(WindowID(#Window_0))
ButtonGadget(#Btn_Quit, 100, 170, 100, 25, "Quitter")
EndIf
T1 = SetTimer_(#Null, #Null, 1000, @TimerProc())
T2 = SetTimer_(#Null, #Null, 2500, @TimerProc())
Repeat
Select WaitWindowEvent()
Case #PB_EventGadget
Select EventGadgetID()
Case #Btn_Quit : quit = 1
EndSelect
Case #PB_EventCloseWindow : quit = 1
EndSelect
Until quit = 1
End
EndIf
PS : Quand je dis "...il ne faut pas donner de n° au timer...", il faut lire "...tu n'as pas besoin de donner.....". De toute façon, si tu lui donnes un n°, il n'est pas pris en compte.