VB.Net by API/System.Diagnostics/Debug

Debug.Assert

<source lang="vbnet"> 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

 </source>

Debug.AutoFlush

<source lang="vbnet">

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

 </source>

Debug.Listeners

<source lang="vbnet">

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

 </source>

Debug.Listeners.Remove

<source lang="vbnet">

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

 </source>

Debug.WriteLine

<source lang="vbnet">

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

 </source>