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
|