'Visual Basic 2010 Debugging - System.Diagnostics.Debug Klasse Instrumenting Applications
#Const DEBUG = True
Option Strict On
Class Example1
    Public Shared Sub Main()
        Dim condition As Boolean = True
        Dim message As String = "Message 1"
        Dim value As Object = message
        Dim category As String = "Category 1"
        '
        Debug.Write(message)
        Debug.Write(value)
        Debug.Write(message, category)
        Debug.Write(value, category)
        '
        Debug.WriteLine(message)
        Debug.WriteLine(value)
        Debug.WriteLine(message, category)
        Debug.WriteLine(value, category)
        '
        Debug.WriteIf(condition, message)
        Debug.WriteIf(condition, value)
        Debug.WriteIf(condition, message, category)
        Debug.WriteIf(condition, value, category)
        '
        Debug.WriteLineIf(condition, message)
        Debug.WriteLineIf(condition, value)
        Debug.WriteLineIf(condition, message, category)
        Debug.WriteLineIf(condition, value, category)
    End Sub
End Class
Class Example2
    Public Shared Sub Main()
        Dim condition As Boolean = False
        Dim message As String = "Message 1"
        Dim detailMessage As String = "Detail Message 1"
        '
        Debug.Assert(condition)
        Debug.Assert(condition, message)
        Debug.Assert(condition, message, detailMessage)
    End Sub
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.