Test Shadows : Shadows « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Shadows

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


Public Class Person
    Public FirstName 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 FirstName As String
End Class

2: Manager Last Name
2: Person Last Name
A: Person Last Name