Imports System
Public Class MainClass
Shared Sub Main()
Try
Method1()
' Output String representation of Exception, then output
' values of properties InnerException, Message and StackTrace
Catch exceptionParameter As Exception
Console.WriteLine("exceptionParameter.ToString: " & _
vbCrLf & "{0}" & vbCrLf, exceptionParameter.ToString())
Console.WriteLine("exceptionParameter.Message: " & _
vbCrLf & "{0}" & vbCrLf, exceptionParameter.Message)
Console.WriteLine("exceptionParameter.StackTrace: " & _
vbCrLf & "{0}" & vbCrLf, exceptionParameter.StackTrace)
Console.WriteLine( _
"exceptionParameter.InnerException: " & _
vbCrLf & "{0}" & vbCrLf, _
exceptionParameter.InnerException.ToString())
End Try
End Sub ' Main
Public Shared Sub Method1()
Method2()
End Sub
Public Shared Sub Method2()
Method3()
End Sub
Public Shared Sub Method3()
' attempt to convert String to Integer
Try
Convert.ToInt32("Not an integer")
Catch formatException As FormatException
Throw New Exception("Exception occurred in Method3", _
formatException)
End Try
End Sub
End Class
|
