Mega Code Archive

 

Categories / VB.Net / Class

 

Overridable Overloads Method from Base Class

Imports System Imports System.Collections Public Class MainClass   Shared Sub Main()     Dim e1 As New Programmer("E", 150000D)     e1.RaiseSalary(0.1D)      Console.WriteLine(e1.TheName & " salary is now " & e1.Salary())   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   Public 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