独自のトレースリスナーの実装に関して

Module Module1

    Sub Main()

        '↓構成ファイルを削除して以下のコメントを解除した場合はうまく動作します

        'Trace.Listeners.Add(New CustomTraceListeners.ProfileTraceListener)

        Trace.WriteLine("test")

    End Sub

End Module



Namespace CustomTraceListeners

    Public Class ProfileTraceListener

        Inherits TraceListener

        Dim sw As New System.IO.StreamWriter("PROFILE.LOG")



        Public Overloads Overrides Sub Write(ByVal message As String)

            If Me.NeedIndent Then

                sw.Write("[" & Now.ToString & " " & Now.Millisecond & "] ")

                Me.WriteIndent()

            End If

            sw.Write(message)

            sw.Flush()

        End Sub



        Public Overloads Overrides Sub WriteLine(ByVal message As String)

            Me.Write(message & ControlChars.CrLf)

            Me.NeedIndent = True

        End Sub

    End Class

End Namespace





アプリケーション構成ファイル(App.config)

<?xml version="1.0" encoding="utf-8" ?>

<configuration>

	<system.diagnostics>

		<trace autoflush="true" indentsize="4">

			<listeners>

				<add name = "FileListener" type="CustomTraceListeners.ProfileTraceListener,CustomTraceListeners" />

			</listeners>

		</trace>

	</system.diagnostics>

</configuration>