logerror.vb

来自「TaskVision 应用程序展示了用于个人和公司相关任务管理的一个完整的 n 」· VB 代码 · 共 23 行

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