LANCARD.LAB｜ランカードコムのスタッフブログ

My.Application.Logを使用してトレースする、ログに書き込む
で詳しく説明されているのでメモ程度で。

まず、My.Application.Logを使うためにアプリケーション構成ファイルであるapp.configを編集します。（ない場合は[プロジェクト] > [新しい項目の追加]からアプリケーション構成ファイルを選択）
app.configがプロジェクトに追加された時点でMy.Application.Logに関する記述があるので楽です。

しかし、このまま何も触らずにプログラム内で

My.Application.Log.WriteEntry("コントロールの初期化")

'Try～Catch内などで
My.Application.Log.WriteException(New Exception("エラー！"))

とするだけでも

DefaultSource   Information 0   コントロールの初期化
DefaultSource   Error   2   エラー！

と出力され使うことができます。

ちなみに出力先のデフォルトは
ユーザーのApplication Dataフォルダ\CompanyName\ProductName\ProductVersion\ProductName.log
ですが、Vista以降はフォルダ構成が変わっているので
ユーザーのAppData\Roaming\CompanyName\ProductName\ProductVersion\ProductName.log
になっています。

現在進めているプロジェクトでのロギングにはmiyazakiさんに調べてもらったMy.Application.Logを使うことにしました。

が、そのままだとちょいと辛かったのでラッピングしてクラスを作ってみました。

Public Class Log
    Public Shared Sub Write(
        ByVal message As String,
        ByVal traceEventType As String,
        Optional ByVal isShowMsgBox As Boolean = False
    )
        Dim severity As System.Diagnostics.TraceEventType =
            System.Enum.Parse(GetType(System.Diagnostics.TraceEventType), traceEventType)

        My.Application.Log.WriteEntry(My.Computer.Clock.LocalTime.ToString & "> " & message, severity)
        My.Application.Log.TraceSource.Flush()
        '下記表示判定は何パターンか試した結果ですが正しいかの確認は出来ていません。
        If My.Application.Log.TraceSource.Switch.Level > severity Then
            showMsgBox(message, severity, traceEventType, isShowMsgBox)
        End If
    End Sub

    Private Shared Sub showMsgBox(
        ByVal message As String,
        ByVal severity As System.Diagnostics.TraceEventType,
        ByVal title As String,
        Optional ByVal isShowMsgBox As Boolean = False
    )
        If isShowMsgBox Then
            Dim msgBoxButtons As MsgBoxStyle
            Select Case severity
                Case Diagnostics.TraceEventType.Critical, Diagnostics.TraceEventType.Error
                    msgBoxButtons = MsgBoxStyle.Critical
                Case Diagnostics.TraceEventType.Warning
                    msgBoxButtons = MsgBoxStyle.Exclamation
                Case Else
                    msgBoxButtons = MsgBoxStyle.Information
            End Select
            MsgBox(message, msgBoxButtons, title)
        End If
    End Sub

    Public Shared Sub Verbose(
        ByVal message As String,
        Optional ByVal isShowMsgBox As Boolean = False
    )
        Log.Write(message, "Verbose", isShowMsgBox)
    End Sub

    Public Shared Sub Info(
        ByVal message As String,
        Optional ByVal isShowMsgBox As Boolean = False
    )
        Log.Write(message, "Information", isShowMsgBox)
    End Sub

    Public Shared Sub Warn(
        ByVal message As String,
        Optional ByVal isShowMsgBox As Boolean = False
    )
        Log.Write(message, "Warning", isShowMsgBox)
    End Sub

    Public Shared Sub Err(
        ByVal message As String,
        Optional ByVal isShowMsgBox As Boolean = False
    )
        Log.Write(message, "Error", isShowMsgBox)
    End Sub

    Public Shared Sub Exception(
        ByVal ex As Exception,
        ByVal message As String,
        Optional ByVal isShowMsgBox As Boolean = False
    )
        message &= System.Environment.NewLine &
            " [例外内容] " & ex.Message & System.Environment.NewLine &
            " [スタックトレース] " & System.Environment.NewLine & ex.StackTrace
        Log.Err(message, isShowMsgBox)
    End Sub
End Class

Verboseがlog4netのDebugにあたる感じで使えると思います。
メッセージボックスを表示したりも出来ます。

My.Application.Log.には例外用のメソッドWriteExceptionがあるのですが出力される情報がイマイチだったので使わないで実装しました。

まだあまり使ってないのでバグってたりするかもしれません。
コードを修正したらここも修正するということで。