Mega Code Archive

 

Categories / VB.Net / Class

 

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