fonctionnement de l'EventLogTraceListener
Bonjour,
J'utilise le code suivant pour écrire dans le le journal d'évènement windows (Merci Vincent Lainé)
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
Public Shared Sub InformationApplicationLog(ByVal pFunction As String, ByVal pMsg As String)
Dim vEventLog As EventLogTraceListener = New EventLogTraceListener("MonAppli")
With vEventLog
.TraceOutputOptions = TraceOptions.DateTime
.Name = pFunction
' Ajout de l'écouteur.
Trace.Listeners.Add(vEventLog)
'ecriture du message dans le gestionnaire d'evenement.
Trace.WriteLine(pMsg, pFunction)
Trace.Flush()
Trace.Close()
End With
End Sub |
Cela fonctionne mais les trace sont en double, voir en triple dans le journal, et au débuguage je ne passe qu'une seul fois dans ma méthode.
J'ai beau tourner le problemme dans tous les sens, je ne trouve pas.
Auriez-vous une idée de ce qui pourrait faire que les mêmes traces s'écrivent 2 ou 3 fois dans le journal?
Merci d'avance