Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB7
Expertise: beginner
Jan 27, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

LogEvent - Logging an error/event to the Windows NT/2000 Application Event Log

' Log an error/event to the Windows NT/2000 Application Event Log.
' Usage: LogEvent("Message here", EventLogEntryType.Information)

Sub LogEvent(ByVal message As String, ByVal entryType As EventLogEntryType)
    If EventLog.SourceExists(Application.ProductName) = False Then
        EventLog.CreateEventSource(Application.ProductName, "Application")
    End If
    EventLog.WriteEntry(Application.ProductName, message, entryType)
End Sub

' This code is taken from Marco Bellinaso's and Kevin Hoffman's "ASP.NET 
' Website Programming - VB.NET edition" (Wrox Press). You can read two entire 
' sample chapters of the C# edition from our Book Bank:
' Chapter 4: Mantaining the site: http://www.vb2themax.com/Htmldoc.asp?File=/
' Books/AspnetWebsite/AspNetWebSite_04.htm
' Chapter 11: Deploying the Site: http://www.vb2themax.com/HtmlDoc.asp?Table=
' Books&ID=7800
Kevin Hoffman
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date