Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Test 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