Mega Code Archive

 

Categories / VB.Net / Class

 

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