Catch Unknown Exceptions : Exception Catch « Development « VB.Net

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

Catch Unknown Exceptions

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


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

             Catch
                 Console.WriteLine("Unknown exception caught!")

             Finally
                 Console.WriteLine("Close file here.")

             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 more than one Exception type
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