Your own Exception Class : Exception Yours « Development « VB.Net

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

Your own Exception Class

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 = 0
                 Dim b As Double = 5
                 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! Msg: {0}", e.Message)
                 Console.WriteLine("HelpLink: {0}", e.HelpLink)

             ' catch custom exception
             Catch e As MyCustomException
                 Console.WriteLine( _
                    "MyCustomException! Msg: {0}", e.Message)
                 Console.WriteLine("HelpLink: {0}", e.HelpLink)

             Catch ' catch any uncaught exceptions
                 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

     Public Class MyCustomException
         Inherits System.ApplicationException

         Public Sub New(ByVal message As String)
             MyBase.New(message)
         End Sub
     End Class

           
       

Related examples in the same category

1.	A user-defined exception class
2.	Your own Object Expired Exception
3.	Define and Use your own Exception Class