[246] | 1 | Namespace System
|
---|
| 2 | Namespace Diagnostics
|
---|
[45] | 3 |
|
---|
[246] | 4 | Class Trace
|
---|
| 5 | Static base As _System_TraceBase()
|
---|
[44] | 6 |
|
---|
[246] | 7 | Public
|
---|
[44] | 8 |
|
---|
[246] | 9 | '----------------------------------------------------------------
|
---|
| 10 | ' パブリック メソッド
|
---|
| 11 | '----------------------------------------------------------------
|
---|
[44] | 12 |
|
---|
[246] | 13 | ' アサート(コールスタックを表示)
|
---|
| 14 | Static Sub Assert( condition As Boolean )
|
---|
| 15 | base.Assert( condition )
|
---|
| 16 | End Sub
|
---|
[45] | 17 |
|
---|
[246] | 18 | ' アサート(メッセージ文字列を表示)
|
---|
| 19 | Static Sub Assert( condition As Boolean, message As String )
|
---|
| 20 | base.Assert( condition, message )
|
---|
| 21 | End Sub
|
---|
[44] | 22 |
|
---|
[246] | 23 | ' アサート(メッセージ文字列と詳細文字列を表示)
|
---|
| 24 | Static Sub Assert( condition As Boolean, message As String, detailMessage As String )
|
---|
| 25 | base.Assert( condition, message, detailMessage )
|
---|
| 26 | End Sub
|
---|
[45] | 27 |
|
---|
| 28 |
|
---|
[246] | 29 | ' インデントレベルを上げる
|
---|
| 30 | Static Sub Indent()
|
---|
| 31 | base.Indent()
|
---|
| 32 | End Sub
|
---|
[44] | 33 |
|
---|
[246] | 34 | ' インデントレベルを下げる
|
---|
| 35 | Static Sub Unindent()
|
---|
| 36 | base.Unindent()
|
---|
| 37 | End Sub
|
---|
[44] | 38 |
|
---|
[246] | 39 | ' 文字列を出力
|
---|
| 40 | Static Sub Write( value As Object )
|
---|
| 41 | base.Write( value )
|
---|
| 42 | End Sub
|
---|
| 43 | Static Sub Write( message As String )
|
---|
| 44 | base.Write( message )
|
---|
| 45 | End Sub
|
---|
| 46 | Static Sub Write( value As Object, category As String )
|
---|
| 47 | base.Write( value, category )
|
---|
| 48 | End Sub
|
---|
| 49 | Static Sub Write( message As String, category As String )
|
---|
| 50 | base.Write( message, category )
|
---|
| 51 | End Sub
|
---|
[58] | 52 |
|
---|
[246] | 53 | ' 一行の文字列を出力
|
---|
| 54 | Static Sub WriteLine( value As Object )
|
---|
| 55 | base.WriteLine( value )
|
---|
| 56 | End Sub
|
---|
| 57 | Static Sub WriteLine( message As String )
|
---|
| 58 | base.WriteLine( message )
|
---|
| 59 | End Sub
|
---|
| 60 | Static Sub WriteLine( value As Object, category As String )
|
---|
| 61 | base.WriteLine( value, category )
|
---|
| 62 | End Sub
|
---|
| 63 | Static Sub WriteLine( message As String, category As String )
|
---|
| 64 | base.WriteLine( message, category )
|
---|
| 65 | End Sub
|
---|
[45] | 66 |
|
---|
[246] | 67 | ' 条件をもとに文字列を出力
|
---|
| 68 | Static Sub WriteIf( condition As Boolean, value As Object )
|
---|
| 69 | base.WriteIf( condition, value )
|
---|
| 70 | End Sub
|
---|
| 71 | Static Sub WriteIf( condition As Boolean, message As String )
|
---|
| 72 | base.WriteIf( condition, message )
|
---|
| 73 | End Sub
|
---|
| 74 | Static Sub WriteIf( condition As Boolean, value As Object, category As String )
|
---|
| 75 | base.WriteIf( condition, value, category )
|
---|
| 76 | End Sub
|
---|
| 77 | Static Sub WriteIf( condition As Boolean, message As String, category As String )
|
---|
| 78 | base.WriteIf( condition, message, category )
|
---|
| 79 | End Sub
|
---|
[45] | 80 |
|
---|
[246] | 81 | ' 条件をもとに一行の文字列を出力
|
---|
| 82 | Static Sub WriteLineIf( condition As Boolean, message As String )
|
---|
| 83 | base.WriteLineIf( condition, message )
|
---|
| 84 | End Sub
|
---|
| 85 | Static Sub WriteLineIf( condition As Boolean, value As Object )
|
---|
| 86 | base.WriteLineIf( condition, value )
|
---|
| 87 | End Sub
|
---|
| 88 | Static Sub WriteLineIf( condition As Boolean, value As Object, category As String )
|
---|
| 89 | base.WriteLineIf( condition, value, category )
|
---|
| 90 | End Sub
|
---|
| 91 | Static Sub WriteLineIf( condition As Boolean, message As String, category As String )
|
---|
| 92 | base.WriteLineIf( condition, message, category )
|
---|
| 93 | End Sub
|
---|
[69] | 94 |
|
---|
| 95 |
|
---|
[246] | 96 | '----------------------------------------------------------------
|
---|
| 97 | ' パブリック プロパティ
|
---|
| 98 | '----------------------------------------------------------------
|
---|
[45] | 99 |
|
---|
[246] | 100 | ' IndentLevelプロパティ
|
---|
| 101 | Static Function IndentLevel() As Long
|
---|
| 102 | Return base.IndentLevel
|
---|
| 103 | End Function
|
---|
| 104 | Static Sub IndentLevel( indentLevel As Long )
|
---|
| 105 | base.IndentLevel = indentLevel
|
---|
| 106 | End Sub
|
---|
[45] | 107 |
|
---|
[246] | 108 | ' IndentSizeプロパティ
|
---|
| 109 | Static Function IndentSize() As Long
|
---|
| 110 | Return base.IndentSize
|
---|
| 111 | End Function
|
---|
| 112 | Static Sub IndentSize( size As Long )
|
---|
| 113 | base.IndentSize = size
|
---|
| 114 | End Sub
|
---|
[45] | 115 |
|
---|
[246] | 116 | ' Listenersプロパティ
|
---|
| 117 | Static Function Listeners() As TraceListenerCollection
|
---|
| 118 | Return base.Listeners
|
---|
| 119 | End Function
|
---|
[69] | 120 |
|
---|
[246] | 121 | End Class
|
---|
| 122 |
|
---|
| 123 | End Namespace
|
---|
| 124 | End Namespace
|
---|