logerror.vb

一个管理系统

Public NotInheritable Class LogError

    Private Const c_EventSource As String = "TaskVision"
    Private Const c_LogName As String = "Application"

    Public Shared Sub Write(ByVal errorMessage As String)
        Try
            'the event source should be created during the installation process
            If EventLog.SourceExists(c_EventSource) Then

                'write the message as an error
                Dim msg As EventLog = New EventLog(c_LogName)
                msg.Source = c_EventSource
                msg.WriteEntry(errorMessage, EventLogEntryType.Error)
            Else
                'try to create the event source for the next error (this requires admin rights)
                EventLog.CreateEventSource(c_EventSource, c_LogName)
            End If
        Catch
        End Try
    End Sub
End Class