Mega Code Archive

 

Categories / VB.Net Tutorial / Development

 

Throw Your own exception in class constructor

Imports System      Module HelloWorld     Public Sub Main()       Try         Dim big_discount as new Discount(56)       Catch ex as Exception         Console.WriteLine(ex.Message)       End Try     End Sub   End Module      Public Class Discount     Private percent as Integer     Public Sub New(ByVal percent as Integer)       Me.percent = percent       If (percent > 50) Then         Throw New MyException("Discount > 50%")       End If     End Sub   End Class      Public Class MyException     Inherits Exception     Public Sub New(ByVal msg as String)        MyBase.New(msg)     End Sub   End Class