Property Shadow during Inheritance

 
Imports System
Imports System.Diagnostics

Public Class MainClass

    Shared Sub Main()
        Dim mgr As New Manager
        mgr.LastName = "Manager Last Name"
        mgr.EmployeeId = 1
        Dim emp As Employee = CType(mgr, Employee)
        emp.LastName = "Employee Last Name"
        emp.EmployeeId = 2
        Dim per As Person = CType(mgr, Person)
        per.LastName = "Person Last Name"
        per.EmployeeId = "A"
        
        Console.WriteLine(mgr.EmployeeId & ": " & mgr.LastName)
        Console.WriteLine(emp.EmployeeId & ": " & emp.LastName)
        Console.WriteLine(per.EmployeeId & ": " & per.LastName)
    End Sub
End Class

Public Class Person
    Public LastName As String
    Public EmployeeId As String
End Class

Public Class Employee
    Inherits Person
    Public Shadows EmployeeId As Long
End Class

Public Class Manager
    Inherits Employee
    Public Shadows LastName As String
End Class

Related examples in the same category

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

Property Shadow during Inheritance : Property « Class « VB.Net

Related examples in the same category