Get and set Properties : Property « Class « VB.Net

Get and set Properties

Get and set Properties
Imports System.IO

Module Module1

    Sub Main()
        Dim Palm As New Book("Book 1", "Author 1")
        Dim Upgrading As New Book("Book 2", "Author 2")

        Palm.Price = 49.99
        Palm.Pages = 2000

        Upgrading.Price = 119.99
        Upgrading.Pages = 600

    End Sub

End Module

    Class Book
        Public Title As String
        Public Author As String
        Private BookPrice As Double
        Private BookPages As Integer

        Public Property Price() As Double
                Return BookPrice
            End Get
            Set(ByVal Value As Double)
                If (Value >= 0) And (Value <= 100) Then
                    BookPrice = Value
                    Console.WriteLine("Invalid price for " & Title)
                    BookPrice = 0
                End If
            End Set
        End Property

        Public Property Pages() As Integer
                Return BookPages
            End Get
            Set(ByVal Value As Integer)
                If (Value >= 0) And (Value <= 1500) Then
                    BookPages = Value
                    Console.WriteLine("Invalid page count for " & Title)
                    BookPages = 0
                End If
            End Set
        End Property

        Public Sub New(ByVal Title As String, ByVal Author As String)
            Me.Title = Title
            Me.Author = Author
        End Sub
    End Class


Related examples in the same category

1.Declare Protected Properties
2.Shared Property DemoShared Property Demo
3.Class Property Get and SetClass Property Get and Set
4.Property Shadow during InheritanceProperty Shadow during Inheritance
5.Define and use Class: PropertyDefine and use Class: Property
6.Compare int property