Imports Leadtools
Imports Leadtools.Logging
Imports Leadtools.Logging.LoggingChannel
Public Class TextBoxLoggingChannel : Inherits LoggingChannel
Private _TextBox As TextBox
Public Sub New(ByVal textbox As TextBox)
_TextBox = textbox
End Sub
Public Overrides Sub WriteLog(ByVal logEntry As ILogEntry)
Dim xml As String = Format(logEntry)
_TextBox.Text += xml & Constants.vbCrLf & Constants.vbCrLf
End Sub
End Class
Private Sub TestLogger(ByVal logTextBox As TextBox)
Dim channel As TextBoxLoggingChannel = New TextBoxLoggingChannel(logTextBox)
'
' Add Channel to global logger
'
Logger.Global.LoggingChannels.Add(channel)
'
'Send Log Messages to Logger.
'
Logger.Global.Info("TestSource", "Info Message")
Logger.Global.Debug("TestSource", "Debug Message")
Logger.Global.Error("TestSource", "Error Message")
Logger.Global.Warning("TestSource", "Warning Message")
Dim e As ArgumentException = New ArgumentException()
Logger.Global.Exception("TestSource", e)
End Sub
using Leadtools;
using Leadtools.Logging;
using Leadtools.Logging.LoggingChannel;
public class TextBoxLoggingChannel : LoggingChannel
{
private TextBox _TextBox;
public TextBoxLoggingChannel(TextBox textbox)
{
_TextBox = textbox;
}
public override void WriteLog(ILogEntry logEntry)
{
string xml = Format(logEntry);
_TextBox.Text += xml + "\r\n\r\n";
}
}
private void TestLogger(TextBox logTextBox)
{
TextBoxLoggingChannel channel = new TextBoxLoggingChannel(logTextBox);
//
// Add Channel to global logger
//
Logger.Global.LoggingChannels.Add(channel);
//
//Send Log Messages to Logger.
//
Logger.Global.Info("TestSource", "Info Message");
Logger.Global.Debug("TestSource", "Debug Message");
Logger.Global.Error("TestSource", "Error Message");
Logger.Global.Warning("TestSource", "Warning Message");
ArgumentException e = new ArgumentException();
Logger.Global.Exception("TestSource", e);
}