Inherits ApplicationException : ApplicationException « System « VB.Net by API

1. VB.Net by API
2. System
3. ApplicationException

Inherits ApplicationException

  

Public Class Tester
    Public Shared Sub Main
    
      Try
         Console.WriteLine(SquareRoot(123.123))
         Console.WriteLine(SquareRoot(-123.123))

      Catch formatException As FormatException
         Console.WriteLine(formatException.Message)

      Catch negativeNumberException As _
         NegativeNumberException
         Console.WriteLine(negativeNumberException.Message)
      End Try
    End Sub
   Public Shared Function SquareRoot(ByVal operand As Double) As Double

      If operand < 0 Then
         Throw New NegativeNumberException( _
            "Square root of negative number not permitted")
      End If

      Return Math.Sqrt(operand)
   End Function ' cmdSquareRoot

End Class


Public Class NegativeNumberException
   Inherits ApplicationException

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

   Public Sub New(ByVal messageValue As String)
      MyBase.New(messageValue)
   End Sub ' New

   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