Mega Code Archive

 

Categories / VB.Net / Development

 

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