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
|
