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
        Console.WriteLine(Upgrading.Pages)

    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
            Get
                Return BookPrice
            End Get
            Set(ByVal Value As Double)
                If (Value >= 0) And (Value <= 100) Then
                    BookPrice = Value
                Else
                    Console.WriteLine("Invalid price for " & Title)
                    BookPrice = 0
                End If
            End Set
        End Property

        Public Property Pages() As Integer
            Get
                Return BookPages
            End Get
            Set(ByVal Value As Integer)
                If (Value >= 0) And (Value <= 1500) Then
                    BookPages = Value
                Else
                    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 Demo
3.	Class Property Get and Set
4.	Property Shadow during Inheritance
5.	Define and use Class: Property
6.	Compare int property

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

Related examples in the same category