Declare Protected Properties

 
Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Drawing.Printing


Public Class MainClass
    Shared Sub Main()

        Dim e As New Programmer("Joe", 15)
        e.RaiseSalary(0.1D)
        'Console.WriteLine(e.TheName & " salary is now " & e.Salary())
        ' Compile Error
    End Sub
End Class


Public Class Employee
    Private m_Name As String
    Private m_Salary As Decimal

    Public Sub New(ByVal theName As String, ByVal curSalary As Decimal)
        m_Name = theName
        m_Salary = curSalary
    End Sub

    Public ReadOnly Property TheName() As String
        Get
            Return m_Name
        End Get
    End Property

    Protected ReadOnly Property Salary() As Decimal
        Get
            Return MyClass.m_Salary
        End Get
    End Property

    Public Overridable Overloads Sub RaiseSalary(ByVal Percent As Decimal)
         m_Salary = (1 + Percent) * m_Salary
    End Sub

End Class

Public Class Programmer
    Inherits Employee
    Public Sub New(ByVal theName As String, ByVal curSalary As Decimal)
        MyBase.New(theName, curSalary)
    End Sub

    Public Overloads Overrides Sub RaiseSalary(ByVal Percent As Decimal)
        MyBase.RaiseSalary(1.2D * Percent)
    End Sub
End Class

Related examples in the same category

1.	Shared Property Demo
2.	Get and set Properties
3.	Class Property Get and Set
4.	Property Shadow during Inheritance
5.	Define and use Class: Property
6.	Compare int property

Declare Protected Properties : Property « Class « VB.Net

Related examples in the same category