I have the following code in a class...
---------------------------------------------------------------------------------
....
Private _eL As EventLog = Nothing
Private _eLName As String = My.Settings.Eve ntLogName
Private _sourceName As String
Private Sub New()
' Require user passes source name.
End Sub
Public Sub New(ByVal EventSourceName As String)
_eL = New EventLog(_eLNam e, My.Computer.Nam e, EventSourceName )
' This will ensure that the event source is registered w/ the EMSL
event log.
If EventLog.LogNam eFromSourceName (EventSourceNam e,
My.Computer.Nam e).Trim.Length 0 _
And EventLog.LogNam eFromSourceName (EventSourceNam e, My.Computer.Nam e)
<_eL.Log Then
EventLog.Delete EventSource(Eve ntSourceName, My.Computer.Nam e)
End If
_eL.CreateEvent Source(EventSou rceName, _eL.Log, My.Computer.Nam e)
_sourceName = EventSourceName
End Sub
....
Public Sub WriteEvent(ByVa l Message As String, ByVal EventType As
EventLogEntryTy pe, Optional ByVal ID As Integer = 68)
EventLog.WriteE ntry(_sourceNam e, Message, EventType, ID)
End Sub
....
---------------------------------------------------------------------------------
The eventlog gets created, but the events are always written to the
Application eventlog.
Please, help.
Thanks,
Jacob
---------------------------------------------------------------------------------
....
Private _eL As EventLog = Nothing
Private _eLName As String = My.Settings.Eve ntLogName
Private _sourceName As String
Private Sub New()
' Require user passes source name.
End Sub
Public Sub New(ByVal EventSourceName As String)
_eL = New EventLog(_eLNam e, My.Computer.Nam e, EventSourceName )
' This will ensure that the event source is registered w/ the EMSL
event log.
If EventLog.LogNam eFromSourceName (EventSourceNam e,
My.Computer.Nam e).Trim.Length 0 _
And EventLog.LogNam eFromSourceName (EventSourceNam e, My.Computer.Nam e)
<_eL.Log Then
EventLog.Delete EventSource(Eve ntSourceName, My.Computer.Nam e)
End If
_eL.CreateEvent Source(EventSou rceName, _eL.Log, My.Computer.Nam e)
_sourceName = EventSourceName
End Sub
....
Public Sub WriteEvent(ByVa l Message As String, ByVal EventType As
EventLogEntryTy pe, Optional ByVal ID As Integer = 68)
EventLog.WriteE ntry(_sourceNam e, Message, EventType, ID)
End Sub
....
---------------------------------------------------------------------------------
The eventlog gets created, but the events are always written to the
Application eventlog.
Please, help.
Thanks,
Jacob
Comment