TraceContextEventHandler Delegate

'Declaration
Public Delegate Sub TraceContextEventHandler ( _
	sender As Object, _
	e As TraceContextEventArgs _
)
'Usage
Dim instance As New TraceContextEventHandler(AddressOf HandlerMethod)

/** @delegate */
public delegate void TraceContextEventHandler (
	Object sender, 
	TraceContextEventArgs e
)

Not applicable.

<%@ Page language="VB" Trace="true" %>
<script runat="server">
' The Page_Load method.
Private Sub Page_Load(sender As Object, e As EventArgs)

    ' Register a handler for the TraceFinished event.
    AddHandler Trace.TraceFinished, AddressOf OnTraceFinished

    ' Write a trace message.
    Trace.Write("Web Forms Infrastructure Methods", "USERMESSAGE: Page_Load complete.")
End Sub ' Page_Load
 
' A TraceContextEventHandler for the TraceFinished event.
Private Sub OnTraceFinished(sender As Object, e As TraceContextEventArgs)

    Dim r As TraceContextRecord
    Dim o As Object
    
    ' Iterate through the collection of trace records and write 
    ' them to the response stream.

    For Each o In e.TraceRecords
        r = CType(o, TraceContextRecord)
        Response.Write(String.Format("trace message: {0} <BR>", r.Message))
    Next

End Sub ' OnTraceFinished
</script>