Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Try with Finally

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 caught!")              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                  Throw New System.DivideByZeroException( )              End If              If a = 0 Then                  Throw New System.ArithmeticException( )              End If              Return a / b          End Function 'DoDivide      End Class