Discussion :

[h__raf]

Salut,

J'ai créer un programme Service Windows, l'application contient un Timer qui s’exécute chaque 10 s.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
33
34
35
36
37
38
39
40
 
 
 
Public Class ServiceRapport
 
 
    Public Sub New()
        MyBase.New()
 
        InitializeComponent()
        If Not System.Diagnostics.EventLog.SourceExists("MySource") Then
            System.Diagnostics.EventLog.CreateEventSource("MySource", "MyLog")
 
        End If
 
        RapportLog.Source = "MySource"
        RapportLog.Log = "MyLog"
 
    End Sub
    Protected Overrides Sub OnStart(ByVal args() As String)
        Timer1.Enabled = True
        RapportLog.WriteEntry("Démarrage du Service " & CStr(TimeOfDay), EventLogEntryType.Information)
    End Sub
 
    Protected Overrides Sub OnStop()
        Timer1.Enabled = False
        RapportLog.WriteEntry("Arret du Service " & CStr(TimeOfDay), EventLogEntryType.Information)
    End Sub
 
    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Elapsed
 
        Dim perso As New Personnage
 
        RapportLog.WriteEntry(perso.getNom(), EventLogEntryType.Information)
 
 
    End Sub
 
 
End Class

Le service démarre, Les informations de démarrage et d'arrêt du service s'enregistrent correctement dans le gestionnaire d'événement. Le problème c'est que je ne peux pas appeler les méthodes des classes que j'ai créer dans Timer1_Elapsed.

Si quelqu'un connait la solution je suis preneur.

Merci d'avance.

[Chapeau_Bas]

Bonjour,
Tu as ajouter ton timer directement par form?
Si c'est le cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Imports System.Timers.Timer
[...]
Dim Tack As New Timers.Timer
 
    Protected Overrides Sub OnStart(ByVal args() As String)
        Tack.Enabled = True
        Tack.Interval = 4000
        Tack.Start()
 
        AddHandler Tack.Elapsed, AddressOf Click_TACK
    End Sub

Regarde si ce code solutionne ton problème...