Catch more than one Exception type : Exception Catch « Development « VB.Net

1. VB.Net
2. Development
3. Exception Catch

Catch more than one Exception type

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


Public Class MainClass
         Shared Sub Main(  )
             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 'Main

         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 an Exception in function and find out the logic flow
3.	Catch an Exception
4.	Catch Exception outside its Function
5.	Catch More than One Exception