logerror.vb

来自「使用Access数据库演示的任务分配管理程序 一个使用ADO.NET基于」· VB 代码 · 共 38 行

'---------------------------------------------------------------------
'  This file is part of the Microsoft .NET Framework SDK Code Samples.
' 
'  Copyright (C) Microsoft Corporation.  All rights reserved.
' 
' This source code is intended only as a supplement to Microsoft
' Development Tools and/or on-line documentation.  See these other
' materials for detailed information regarding Microsoft code samples.
' 
' THIS CODE AND INFORMATION ARE PROVIDED AS IS WITHOUT WARRANTY OF ANY
' KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
' IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'---------------------------------------------------------------------

Public NotInheritable Class LogError

    Private Const c_EventSource As String = "TeamVision"
    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