Vb.net 在父类型变量中使用子实例

Question

我更熟悉 Java 是如何处理多态的，所以我可能在 vb 中做错了

我正在尝试使用多态性和继承来拥有一个可以采用多种形式的实例， 问题是变量被实例化为父类型并初始化为子类实例，但我无法访问子属性。

下面是我想要做的一个例子：

sub main()
  Dim animal as Animal           'instantiated as parent type
  'some code later
  animal= New Dog()              'no problems here
  dim legs = animal.legs         'this works
  dim fur = animal.fur           'this is an error 
end sub

Public Class Animal
  Property legs as integer
End Class 

Public Class Dog
  inherits Animal
  Property fur as Boolean = True
End Class

如果我能做到这一点，那就太好了。

Answer 1

这实际上是声明，而不是实例化。

Dim animal as Animal

如果你知道它是一种动物，那就像这样创造它：

Dim doggo As New Dog

您唯一需要将Dog 视为Animal 的情况是，如果您在Legs 上执行某些操作。

例如（在Animal 类中）：

Shared Sub AmputateLeg(patient As Animal)
    patient.Legs = patient.Legs - 1
End Sub

您可以像这样从Dog 拨打电话：

Dim doggo As New Dog()
doggo.Legs = 4
Animal.AmputateLeg(doggo)
Console.WriteLine(doggo.Legs) ' Shows 3.

正如 Plutonix 评论的那样，基类不应该知道派生类的任何信息，因此当 Dog 被视为 Animal 类型时，IDE 无法找到 Fur 属性

也许你想要类似Interface 的东西

Public Interface IAnimal
    Property Fur As Boolean
    Property Legs As Integer
End Interface

Public Class Dog
    Implements IAnimal

    Public Property Fur As Boolean = True Implements IAnimal.Fur
    Public Property Legs As Integer = 4 Implements IAnimal.Legs
End Class

Public Class Duck
    Implements IAnimal

    Public Property Fur As Boolean = False Implements IAnimal.Fur
    Public Property Legs As Integer = 2 Implements IAnimal.Legs
End Class

以这种方式使用Interface 意味着您可以随时引用任何动物的Legs 和Fur。