Catch More than One Exception : Exception Catch « Development « VB.Net

Catch More than One Exception

Catch More than One Exception
Imports System
Imports System.Text 
Imports System.Text.RegularExpressions

Public Class MainClass

    Shared Sub Main(ByVal args As String())
                 Dim a As Double = 5
                 Dim b As Double = 0
                 Console.WriteLine("Dividing {0} by {1}...", a, b)
                 Console.WriteLine("{0} / {1} = {2}", _
                     a, b, DoDivide(a, b))

                 ' most derived exception type first
             Catch e As System.DivideByZeroException
                 Console.WriteLine("DivideByZeroException caught!")

             Catch e As System.ArithmeticException
                 Console.WriteLine("ArithmeticException caught!")

                 ' generic exception type last
                 Console.WriteLine("Unknown exception caught")
             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
                 Throw New System.DivideByZeroException( )
             End If
             If a = 0 Then
                 Throw New System.ArithmeticException( )
             End If
             Return a / b
         End Function

End Class


Related examples in the same category

1.Catch Unknown ExceptionsCatch Unknown Exceptions
2.Catch more than one Exception typeCatch more than one Exception type
3.Catch an Exception in function and find out the logic flowCatch an Exception in function and find out the logic flow
4.Catch an ExceptionCatch an Exception
5.Catch Exception outside its FunctionCatch Exception outside its Function