Overridable Overloads Method from Base Class : Overridable « Class « VB.Net

1. VB.Net
2. Class
3. Overridable

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

           
       

Related examples in the same category

1.	Define Overridable Member Function
2.	Use Overridable Function