A user-defined exception class

Imports System

Public Class MainClass

   Shared Sub Main()
      ' catch any NegativeNumberException thrown
      Try
         Throw New NegativeNumberException("Exception occurred")
          
      Catch formatException As FormatException
         Console.WriteLine(formatException.Message)

         ' diplay MessageBox if negative number input
      Catch negativeNumberException As _
         NegativeNumberException

         Console.WriteLine(negativeNumberException.Message)

      End Try

   End Sub ' Main

End Class

Public Class NegativeNumberException
   Inherits ApplicationException

   Public Sub New()
      MyBase.New("Illegal operation for a negative number")
   End Sub ' New

   ' constructor for customizing error message
   Public Sub New(ByVal messageValue As String)
      MyBase.New(messageValue)
   End Sub ' New

   ' constructor for customizing error message and specifying
   ' inner exception object
   Public Sub New(ByVal messageValue As String, _
      ByVal inner As Exception)

      MyBase.New(messageValue, inner)
   End Sub

End Class

Related examples in the same category

1.	Your own Exception Class
2.	Your own Object Expired Exception
3.	Define and Use your own Exception Class

A user-defined exception class : Exception Yours « Development « VB.Net

Related examples in the same category