動作の種類はShowで呼び出したときは「SHOW」、メッセージボックスの結果には「----」、WriteLineで呼び出したときはデフォルトでは「MEMO」が表示されます。
特に重要なポイントではWriteLineの第二引数を指定することで、別の文字を出力できます。
使用例)
Option Strict On
Imports System.Windows.Forms
Public Class DebugTimer
Private Shared _start As Date
Private Shared _before As Date
Private Shared _timer As New DebugTimer
Private Shared _result As DialogResult
Private Sub New()
_start = Now
_before = _start
End Sub
Public ReadOnly Property StartTime() As Date
Get
Return _start
End Get
End Property
Public Shared Sub WriteLine(ByVal message As String)
Debug.WriteLine("MEMO" & vbTab _
& Format(Date.Parse("2000/1/1").Add(Now().Subtract(_start)), "mm:ss:fff") & vbTab _
& Format(Date.Parse("2000/1/1").Add(Now().Subtract(_before)), "mm:ss:fff") & vbTab _
& message)
_before = Now
End Sub
Public Shared Sub WriteLine(ByVal message As String, ByVal messagetype As String)
Debug.WriteLine(messagetype & vbTab _
& Format(Date.Parse("2000/1/1").Add(Now().Subtract(_start)), "mm:ss:fff") & vbTab _
& Format(Date.Parse("2000/1/1").Add(Now().Subtract(_before)), "mm:ss:fff") & vbTab _
& message)
_before = Now
End Sub
#Region "Show-ウィンドウ指定なし"
Public Shared Function Show(ByVal text As String) As DialogResult
WriteLine(text, "SHOW")
_result = MessageBox.Show(text)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal text As String, _
ByVal caption As String) As DialogResult
WriteLine(text, "SHOW")
_result = MessageBox.Show(text, caption)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal text As String, _
ByVal caption As String, _
ByVal buttons As MessageBoxButtons) As DialogResult
WriteLine(text, "SHOW")
_result = MessageBox.Show(text, caption, buttons)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal text As String, _
ByVal caption As String, _
ByVal buttons As MessageBoxButtons, _
ByVal icon As MessageBoxIcon) As DialogResult
WriteLine(text, "SHOW")
_result = MessageBox.Show(text, caption, buttons, icon)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal text As String, _
ByVal caption As String, _
ByVal buttons As MessageBoxButtons, _
ByVal icon As MessageBoxIcon, _
ByVal defaultButton As MessageBoxDefaultButton) As DialogResult
WriteLine(text, "SHOW")
_result = MessageBox.Show(text, caption, buttons, icon, defaultButton)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal text As String, _
ByVal caption As String, _
ByVal buttons As MessageBoxButtons, _
ByVal icon As MessageBoxIcon, _
ByVal defaultButton As MessageBoxDefaultButton, _
ByVal options As MessageBoxOptions) As DialogResult
WriteLine(text, "SHOW")
_result = MessageBox.Show(text, caption, buttons, icon, defaultButton, options)
WriteLine(_result.ToString, "----")
Return _result
End Function
#End Region
#Region "Show-ウインドウ指定あり"
'■
Public Shared Function Show(ByVal owner As IWin32Window, _
ByVal text As String) As DialogResult
WriteLine(Text, "SHOW")
_result = MessageBox.Show(owner, Text)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal owner As IWin32Window, _
ByVal text As String, _
ByVal caption As String) As DialogResult
WriteLine(text, "SHOW")
_result = MessageBox.Show(owner, text, caption)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal owner As IWin32Window, _
ByVal text As String, _
ByVal caption As String, _
ByVal buttons As MessageBoxButtons) As DialogResult
WriteLine(text, "SHOW")
_result = MessageBox.Show(owner, text, caption, buttons)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal owner As IWin32Window, _
ByVal text As String, _
ByVal caption As String, _
ByVal buttons As MessageBoxButtons, _
ByVal icon As MessageBoxIcon) As DialogResult
WriteLine(Text, "SHOW")
_result = MessageBox.Show(owner, Text, caption, buttons, icon)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal owner As IWin32Window, _
ByVal text As String, _
ByVal caption As String, _
ByVal buttons As MessageBoxButtons, _
ByVal icon As MessageBoxIcon, _
ByVal defaultButton As MessageBoxDefaultButton) As DialogResult
WriteLine(Text, "SHOW")
_result = MessageBox.Show(owner, Text, caption, buttons, icon, defaultButton)
WriteLine(_result.ToString, "----")
Return _result
End Function
Public Shared Function Show(ByVal owner As IWin32Window, _
ByVal text As String, _
ByVal caption As String, _
ByVal buttons As MessageBoxButtons, _
ByVal icon As MessageBoxIcon, _
ByVal defaultButton As MessageBoxDefaultButton, _
ByVal options As MessageBoxOptions) As DialogResult
WriteLine(Text, "SHOW")
_result = MessageBox.Show(owner, Text, caption, buttons, icon, defaultButton, options)
WriteLine(_result.ToString, "----")
Return _result
End Function
#End Region
End Class