Timer qui ne leve pas d'évent
Kikou tout le monde,
J'ai un problème vraiment de base avec un Timer sous VB.net
Quand je demande de lancer le timer par Timer.Start() directement, il n'a aucun problème mais quand j'intégre le code dans mon programme et que je passes par un Invoke pour appeler la fonction qui lance le Timer, l'event lié à l'objet n'est jamais levé !
Savez-vous me dire d'où cela pourrait venir ?
voici le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Public Class Job
WithEvents Chk_End_Ana As New Timer()
Public Sub New()
Chk_End_Ana.Enabled = True
Chk_End_Ana.Stop()
Chk_End_Ana.Interval = 1000
End Sub
Public sub Action()
'faire plient de truc
Chk_End_Ana.Start()
End Sub
Public Sub Chk_End_Ana_Tick() Handles Chk_End_Ana.Tick
Debug.Print("Timer Event")
End Sub
End Class |
j'ai tenté de faire avec des Chk_End_Ana.Enable = True/False à la place de Start()/Stop(). J'ai également tenté de faire avec
Code:
AddHandler Chk_End_Ana.Tick, AddressOf Chk_End_Ana_Tick
Mais rien n'a changé, j'ai jamais l'event qui arrive avec un Invoke
