'Visual Basic 2008/2010 Redefinition - Overridable en Overrides Object Oriented Programming
Class Employee
    Private m_MonthlySalary As Decimal
    Public Property MonthlySalary() As Decimal
        Get
            MonthlySalary = m_MonthlySalary
        End Get
        Set(ByVal value As Decimal)
            m_MonthlySalary = value
        End Set
    End Property
    Public Overridable Function GetYearlySalary() As Decimal
        GetYearlySalary = MonthlySalary * 12
    End Function
End Class
Class Manager : Inherits Employee
    Private m_Bonus As Decimal
    Public Property Bonus() As Decimal
        Get
            Bonus = m_Bonus
        End Get
        Set(ByVal value As Decimal)
            m_Bonus = value
        End Set
    End Property
    Public Overrides Function GetYearlySalary() As Decimal
        GetYearlySalary = MyBase.GetYearlySalary() + Bonus
    End Function
End Class
Module Exercise1Solution
    Public Sub Main()
        Dim employee1 As Employee = New Employee
        employee1.MonthlySalary = 1000
        Console.WriteLine(employee1.GetYearlySalary())
        '
        Dim manager1 As Manager = New Manager
        manager1.MonthlySalary = 2000
        manager1.Bonus = 10000
        Console.WriteLine(manager1.GetYearlySalary())
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2010 - Alle rechten voorbehouden.