Mon timer ne fonctionne pas
Bonjour,
J'ai crée un service windows tt ce qu il y a de plus basic et je voudrais qu il me lance une fonction a interval regulier
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
Public Class ServiceVP
Dim timervp As New System.Windows.Forms.Timer
Protected Overrides Sub OnStart(ByVal args() As String)
If Not Diagnostics.EventLog.SourceExists("ServiceVPP") Then
Diagnostics.EventLog.CreateEventSource("ServiceVPP", "JrnlVPP")
End If
Me.AutoLog = True
JEvent.Source = "JrnlVPP"
JEvent.WriteEntry("démarrage du service")
timervp.Interval = 6000
timervp.Enabled = True
timervp.Start()
AddHandler timervp.Tick, AddressOf OnTimerEvent
End Sub
Protected Overrides Sub OnStop()
JEvent.WriteEntry("Arrêt du service")
timervp.Enabled = False
End Sub
Public Sub OnTimerEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
JEvent.WriteEntry("Tick")
End Sub
End Class |
Je suis censé avoir Tick qui s affiche dans mon journal toutes les 6 secondes mais non je n ai que "demarrage service" qd je demarre le service et "Arrêt du service" quand je l'arrete
Merci!
