Visual Basic

AliAmjad wrote:

How can i append the messages to the Textbox

Public Class TraceLogSupport
    Inherits TraceListener
 
    Private _targetTextBox As TextBox = Nothing
 
    Public Sub New(ByVal TextBoxControl As TextBox)
        Mybase.New()
        If TextBoxControl IsNot Nothing Then
            _targetTextBox = TextBoxControl
        Else
            MyBase.Dispose()
            Throw New ArgumentNullException("You must specify a TextBox control to use to show log information.")
        End If
    End Sub
 
    Public Overrides Sub Write(ByVal message As String)
        _targetTextBox.AppendText(message)
    End Sub
 
    Public Overrides Sub WriteLine(ByVal message As String)
        Me.Write(message & Environment.NewLine)
    End Sub
End Class

    Private _tractListener As TraceLogSupport
 
...
 
    Private Sub LogForm_Load(blah, blah) Handles MyBase.Load
        _traceListener = New TraceLogSupport(LogTextBox)
        Trace.AutoFlush = True
        Trace.Listeners.Add(_traceListener)
    End Sub

Kschuler wrote:

when it is run on a machine that doesn't have the design database in the same location as it was when the Crystal Report was designed and created, it will prompt asking for Database Login information