将基类扩展为派生类

Question

我们有两个类 BasicRace 和 AdvancedRace。 AdvancedRace 继承自 BasicRace

我有一个 BasicRace，但我想将它“转换”为高级课程。

以下代码为例：

Module Module1
    Sub Main()
        Dim bRace As New BasicRace With {.CourseID = 1, .MeetingDate = "2013-05-01", .RaceNumber = 1}
        Dim aRace As New AdvancedRace

        ' Upgrade bRace to AdvancedRace???????
    End Sub
End Module

Public Class BasicRace
    Public Property MeetingDate As Date
    Public Property CourseID As Integer
    Public Property RaceNumber As Integer
End Class

Public Class AdvancedRace
    Inherits BasicRace
    Public Property RaceTitle As String
End Class

任何帮助都会很棒 - 我开始认为它无法完成，除非我编写一个函数将 basicRace 转换为 AdvancedRace 逐个遍历每个属性？

Answer 1

您不能从基类“转换”为子类（不能更改现有对象的类型），但您可以创建从基类复制属性的子类的新实例.

为您的类实现此功能的典型方法可能是：

• AdvancedRace 中的构造函数接受 BasicRace 参数并从中复制属性
• AdvancedRace 中的静态方法，接受 BasicRace 参数，创建具有复制属性的新对象，然后返回它

值得注意的是，这将导致两个完全独立的对象（每种类型一个）根本没有链接 - AdvancedRace 对象的更改不会反映在 BasicRace 中，反之亦然.