Provides data for the EntryWritten event.
Assembly: System (in System.dll)
Thetype exposes the following members.
|Equals(Object)||Determines whether the specified object is equal to the current object. (Inherited from Object.)|
|Finalize||Allows an object to try to free resources and perform other cleanup operations before it is reclaimed by garbage collection. (Inherited from Object.)|
|GetHashCode||Serves as the default hash function. (Inherited from Object.)|
|GetType||Gets the Type of the current instance. (Inherited from Object.)|
|MemberwiseClone||Creates a shallow copy of the current Object. (Inherited from Object.)|
|ToString||Returns a string that represents the current object. (Inherited from Object.)|
The following example demonstrates the EntryWrittenEventArgs constructor. It creates a custom EventLog object and writes an entry into it. Then it creates an object using the first entry in the custom EventLog. This object is used to notify a message.
Imports System Imports System.Diagnostics Class MySample Public Shared Sub Main() Try Dim myNewLog As New EventLog() myNewLog.Log = "MyNewLog" myNewLog.Source = "MySource" ' Create the source if it does not exist already. If Not EventLog.SourceExists("MySource") Then EventLog.CreateEventSource("MySource", "MyNewLog") Console.WriteLine("CreatingEventSource") End If ' Write an entry to the EventLog. myNewLog.WriteEntry("The Latest entry in the Event Log") Dim myEntryEventArgs As EntryWrittenEventArgs = _ New EntryWrittenEventArgs() MyOnEntry(myNewLog, myEntryEventArgs) Catch e As Exception Console.WriteLine("Exception Raised" + e.Message) End Try End Sub 'Main Protected Shared Sub MyOnEntry(ByVal source As Object, _ ByVal e As EntryWrittenEventArgs) If e.Entry Is Nothing Then Console.WriteLine("A new entry is written in MyNewLog.") End If End Sub 'MyOnEntry End Class 'MySample