Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Catch and rethrow exceptions

Imports System Imports System.Data Imports System.IO public class MainClass    Shared Sub Main()        Dim FileToRead As String = "test.txt"        Dim TestFile As FileStream        Dim Reader As New StreamReader(FileToRead)        Do            Dim I As Integer, S As String            Dim Result As Integer            Try                S = Reader.ReadLine()                I = CInt(S)                Result = 100 \ I                Console.WriteLine(Result)            Catch DivByZero As System.DivideByZeroException                Console.WriteLine("** Divide by zero **")            Catch BadConversion As System.InvalidCastException                Console.WriteLine("** " + S + " is not a number **")                Throw New System.InvalidCastException("My own exception happened here", BadConversion)            Catch OtherErrors As Exception                Throw OtherErrors            End Try        Loop While Reader.Peek <> -1    End Sub End Class