Customize Exception Information

Imports System
Imports System.Text 
Imports System.Text.RegularExpressions

Public Class MainClass

    Shared Sub Main(ByVal args As String())
             Try
                 Console.WriteLine("Open file here")
                 Dim a As Double = 5
                 Dim b As Double = 0
                 Console.WriteLine("{0} / {1} = {2}", a, b, DoDivide(a, b))
                 Console.WriteLine("This line may or may not print")

                 ' most derived exception type first
             Catch e As System.DivideByZeroException
                 Console.WriteLine( _
                   "DivideByZeroException! Msg: {0}", e.Message)
                 Console.WriteLine( _
                    "Helplink: {0}", e.HelpLink)
                 Console.WriteLine( _
                     "Stack trace: {0}", e.StackTrace)

             Catch
                 Console.WriteLine("Unknown exception caught!")
             Finally
                 Console.WriteLine("Close file here.")

             End Try
    End Sub
         ' do the division if legal
         Shared Public Function DoDivide( _
             ByVal a As Double, ByVal b As Double) As Double
             If b = 0 Then
                 Dim e As New System.DivideByZeroException( )
              e.HelpLink = "http://www.java2s.com"
                 Throw e
             End If
             If a = 0 Then
                 Throw New System.ArithmeticException( )
             End If
             Return a / b
         End Function 'DoDivide

End Class

Related examples in the same category

1.	Display Exception, Inner Exception and stack trace
2.	Exception Help Link, Message and Trace
3.	Exception Information

Customize Exception Information : Exception Message « Development « VB.Net

Related examples in the same category