VB.Net by API/System.Diagnostics/Debug

Debug.Assert

  
Imports System.IO
Module Module1
    Sub Main()
        Dim FileStr As StreamWriter
        System.Diagnostics.Debug.Assert(Not (FileStr Is Nothing), "FileStr is NULL")
        System.Diagnostics.Debug.Assert(Directory.Exists("\Temp"), "\Temp does not exist")
    End Sub
End Module

Debug.AutoFlush

  
 
Imports System.IO
Imports System.Diagnostics
Module Module1
    Sub Main()
        Dim Str As New FileStream("C:\DebugMessages.txt", System.IO.FileMode.Append)
        Dim DebugFile As New StreamWriter(Str)
        Dim Listener = New TextWriterTraceListener(DebugFile)
        Debug.Listeners.Add(Listener)
        Debug.AutoFlush = True
        Debug.WriteLine("")
        Debug.WriteLine("Messages generated at " & Now())
        Debug.WriteLine("In Button Click")
        Debug.WriteLine("Calling First")
        First()
        Debug.WriteLine("Exiting Button Click")
        Debug.Listeners.Remove(Listener)
        Str.Close()

    End Sub
    Private Sub First()
        Debug.WriteLine("In First")
        Debug.WriteLine("Calling Second")
        Second()
        Debug.WriteLine("Back in First")
    End Sub
    Private Sub Second()
        Debug.WriteLine("In Second")
    End Sub
End Module

Debug.Listeners

  
 
Imports System.IO
Imports System.Diagnostics
Module Module1
    Sub Main()
        Dim Str As New FileStream("C:\DebugMessages.txt", System.IO.FileMode.Append)
        Dim DebugFile As New StreamWriter(Str)
        Dim Listener = New TextWriterTraceListener(DebugFile)
        Debug.Listeners.Add(Listener)
        Debug.AutoFlush = True
        Debug.WriteLine("")
        Debug.WriteLine("Messages generated at " & Now())
        Debug.WriteLine("In Button Click")
        Debug.WriteLine("Calling First")
        First()
        Debug.WriteLine("Exiting Button Click")
        Debug.Listeners.Remove(Listener)
        Str.Close()

    End Sub
    Private Sub First()
        Debug.WriteLine("In First")
        Debug.WriteLine("Calling Second")
        Second()
        Debug.WriteLine("Back in First")
    End Sub
    Private Sub Second()
        Debug.WriteLine("In Second")
    End Sub
End Module

Debug.Listeners.Remove

  

 
Imports System.IO
Imports System.Diagnostics
Module Module1
    Sub Main()
        Dim Str As New FileStream("C:\DebugMessages.txt", System.IO.FileMode.Append)
        Dim DebugFile As New StreamWriter(Str)
        Dim Listener = New TextWriterTraceListener(DebugFile)
        Debug.Listeners.Add(Listener)
        Debug.AutoFlush = True
        Debug.WriteLine("")
        Debug.WriteLine("Messages generated at " & Now())
        Debug.WriteLine("In Button Click")
        Debug.WriteLine("Calling First")
        First()
        Debug.WriteLine("Exiting Button Click")
        Debug.Listeners.Remove(Listener)
        Str.Close()

    End Sub
    Private Sub First()
        Debug.WriteLine("In First")
        Debug.WriteLine("Calling Second")
        Second()
        Debug.WriteLine("Back in First")
    End Sub
    Private Sub Second()
        Debug.WriteLine("In Second")
    End Sub
End Module

Debug.WriteLine

  
 
Imports System.IO
Imports System.Diagnostics
Module Module1
    Sub Main()
        Dim Str As New FileStream("C:\DebugMessages.txt", System.IO.FileMode.Append)
        Dim DebugFile As New StreamWriter(Str)
        Dim Listener = New TextWriterTraceListener(DebugFile)
        Debug.Listeners.Add(Listener)
        Debug.AutoFlush = True
        Debug.WriteLine("")
        Debug.WriteLine("Messages generated at " & Now())
        Debug.WriteLine("In Button Click")
        Debug.WriteLine("Calling First")
        First()
        Debug.WriteLine("Exiting Button Click")
        Debug.Listeners.Remove(Listener)
        Str.Close()

    End Sub
    Private Sub First()
        Debug.WriteLine("In First")
        Debug.WriteLine("Calling Second")
        Second()
        Debug.WriteLine("Back in First")
    End Sub
    Private Sub Second()
        Debug.WriteLine("In Second")
    End Sub
End Module