visual basic 2010 broncode voorbeelden

Imports System.Diagnostics
#Const TRACE = True
Class ExampleTraceListenerEventTypeFilter
    Private Shared traceSource As TraceSource
    Public Shared Sub Main()
        Dim traceSource As New TraceSource("myTraceSource", _
                                           SourceLevels.Information)
        '
        Dim veryIntrestedTraceListener As TraceListener
        veryIntrestedTraceListener = traceSource.Listeners.Item("Default")
        ' or :
        ' veryIntrestedTraceListener = traceSource.Listeners.Item(0)
        veryIntrestedTraceListener.Filter = _
                                           New EventTypeFilter(SourceLevels.All)
        '
        Dim warningOrMoreSeriousTraceListener As New ConsoleTraceListener
        traceSource.Listeners.Add(warningOrMoreSeriousTraceListener)
        warningOrMoreSeriousTraceListener.Filter = _
                                       New EventTypeFilter(SourceLevels.Warning)
        '
        traceSource.TraceEvent(TraceEventType.Critical, 1, "Critical Message")
        traceSource.TraceEvent(TraceEventType.Error, 2, "Error Message")
        traceSource.TraceEvent(TraceEventType.Warning, 3, "Warning Message")
        traceSource.TraceEvent(TraceEventType.Information, 4, _
                                                          "Information Message")
        traceSource.TraceEvent(TraceEventType.Verbose, 5, "Verbose Message")
        '
        Console.ReadLine()
    End Sub
End Class

myTraceSource Critical: 1 : Critical Message
myTraceSource Error: 2 : Error Message
myTraceSource Warning: 3 : Warning Message