Catch More than One Exception

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

Public Class MainClass

    Shared Sub Main(ByVal args As String())
             Try
                 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
             Catch
                 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 Exceptions
2.	Catch more than one Exception type
3.	Catch an Exception in function and find out the logic flow
4.	Catch an Exception
5.	Catch Exception outside its Function

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

Related examples in the same category