18 lines
601 B
VB.net
18 lines
601 B
VB.net
Imports NLog
|
|
|
|
Public Class Logger
|
|
Inherits NLog.Logger
|
|
|
|
''' <summary>
|
|
''' Prints a preformatted Block including a block identifier
|
|
''' </summary>
|
|
''' <param name="blockId">A unique Identifier for this block, eg. DocId, FullPath, ..</param>
|
|
Public Sub NewBlock(blockId As String)
|
|
Dim message As String = $"=========={vbTab}{vbTab}Start of Block {blockId}{vbTab}{vbTab}=========="
|
|
Dim logEventInfo As New LogEventInfo(LogLevel.Info, Name, message)
|
|
Dim WrapperType As Type = GetType(Logger)
|
|
|
|
Log(WrapperType, logEventInfo)
|
|
End Sub
|
|
End Class
|