2006年08月21日

ログ生成用クラス (5)

ログ生成用クラス (4) に引き続き、CoreLog クラスの残りの実装をみていきましょう。 まずは処理のメインとなる2つのメソッドです。
  ' ---- Public methods ----

Public Sub logText(message$)
Me.getLog().AppendText(message$)
Call Me.getLog().AddNewLine(1)
End Sub

Public Sub traceText(message$, level%)
If level% <= Me.getTraceLevel() Then
Me.getTrace().AppendText(message$)
Call Me.getTrace().AddNewLine(1)
End If
End Sub
続きを読む
posted by yamachan at 22:48| Comment(0) | TrackBack(0) | my設計パターン