visual basic 2010 broncode voorbeelden

Imports System.Diagnostics
#Const TRACE = True
Class ExampleSourceFilter
    Public Shared Sub Main()
        Dim traceSource1 As New TraceSource("traceSource1", SourceLevels.All)
        Dim traceSource2 As New TraceSource("traceSource2", SourceLevels.All)
        '
        traceSource1.Listeners.Clear()
        traceSource2.Listeners.Clear()
        '
        Dim consoleTraceListener As New ConsoleTraceListener
        '
        traceSource1.Listeners.Add(consoleTraceListener)
        traceSource2.Listeners.Add(consoleTraceListener)
        '
        consoleTraceListener.Filter = New SourceFilter("traceSource1")
        '
        traceSource1.TraceEvent(TraceEventType.Information, 1, "Message 1")
        traceSource2.TraceEvent(TraceEventType.Information, 2, "Message 2")
        '
        consoleTraceListener.Filter = New SourceFilter("traceSource2")
        '
        traceSource1.TraceEvent(TraceEventType.Information, 3, "Message 3")
        traceSource2.TraceEvent(TraceEventType.Information, 4, "Message 4")
        '
        Console.ReadLine()
    End Sub
End Class

traceSource1 Information: 1 : Message 1
traceSource2 Information: 4 : Message 4