10 lines
332 B
VB.net
10 lines
332 B
VB.net
Imports System.Diagnostics
|
|
|
|
Public Class TraceHelper
|
|
Private Shared _traceCriteria As New TraceSwitch("EDOKA.Common.TraceHelper", "Criteria to trace the messages")
|
|
|
|
Public Shared Sub Msg(ByVal l As TraceLevel, ByVal message As String)
|
|
Trace.WriteIf(l >= _traceCriteria.Level, message)
|
|
End Sub
|
|
End Class
|