Language Basics ASP.Net

  1. Home
  2. ASP.Net
  3. Language Basics
  4. Throw Exception in Property setter (VB net)
<%@ Page Language="VB" %>

Public Class Math
    Private intValue As Integer
    Public Property InValue() As Integer
        Get
            Return intValue
        End Get
        Set(ByVal value As Integer)
            If intValue > 0 Then
                intValue = value
            Else
                Throw New Exception("InValue can not be less than 1")
            End If
        End Set 
    End Property
    Public Function MultiplyBySelf(ByVal InValue As Integer) As Integer
        Return Multiply(InValue, InValue)
    End Function
    Private Function Multiply(ByVal FirstValue As Integer, ByVal SecondValue As Integer)
        Return FirstValue * SecondValue
    End Function
End Class
    Sub Page_Load()
        Dim clsMath As Math
        clsMath = New Math
        clsMath.InValue = 10
        lblMessage.Text = clsMath.MultiplyBySelf(10)
    End Sub
    



    Show Shared Hello World


    
    

    
            id="lblMessage"
        Runat="server" />