一般性的错误日志处理模块--来自IssueVision

一般性的错误日至处理，可以记录到系统得日至管理
日志类型：

 

Imports System.Diagnostics

' Windows 事件日志记录
Public Class EventLogHelper

    Private Shared ReadOnly m_eventLogSource As String = "IssueVision Smart Client 1.0"

    ' 因为是一个静态类,所以阻止被实例化,最好的方法就是用private 修饰构造函数
    Private Sub New()        
    End Sub

    ' 检查是否已经存在日志源名称
    Public Shared Function Exists(ByVal eventSourceName As String) As Boolean
        Return EventLog.Exists(eventSourceName)
    End Function

    ' 创建一个日志源
    Public Shared Sub CreateSource(ByVal eventSourceName As String)
        If (EventLog.Exists(eventSourceName) = False) Then
            EventLog.CreateEventSource(eventSourceName, "Application")
        End If
    End Sub

    ' 移除日志源
    Public Shared Sub RemoveSource(ByVal eventSourceName As String)
        If (EventLog.Exists(eventSourceName)) Then
            EventLog.DeleteEventSource(eventSourceName, "Application")
        End If
    End Sub

    ' 添加一个错误日志.
    Public Shared Sub LogError(ByVal message As String)
        LogEvent(m_eventLogSource, message, EventLogEntryType.Error)
    End Sub

    ' 添加一个失败日志
    Public Shared Sub LogFailureAudit(ByVal message As String)
        LogEvent(m_eventLogSource, message, EventLogEntryType.FailureAudit)
    End Sub

    ' 添加一个成功日志.
    Public Shared Sub LogSuccessAudit(ByVal message As String)
        LogEvent(m_eventLogSource, message, EventLogEntryType.SuccessAudit)
    End Sub

    ' 添加一个警告日志
    Public Shared Sub LogWarning(ByVal message As String)
        LogEvent(m_eventLogSource, message, EventLogEntryType.Warning)
    End Sub

    ' 记录一个消息到应用程序日志.
    Public Shared Sub LogInformation(ByVal message As String)
        LogEvent(m_eventLogSource, message, EventLogEntryType.Information)
    End Sub

    ' 记录一个特殊类型的消息到应用程序日志
    Private Shared Sub LogEvent(ByVal eventLogSource As String, ByVal message As String, ByVal eventLogEntryType As EventLogEntryType)
        EventLog.WriteEntry(eventLogSource, message, eventLogEntryType)
    End Sub

End Class