vb6 - 您可以使用基类来允许将多个派生类作为参数传递给 VB6 中的函数吗？

Question

我搜索了有关 VB6 对多态性的支持的文章，但我阅读的所有文章都只提到您可以使派生类继承派生类的属性和方法。我读过的三四篇文章都没有提到 VB6 的多态性是否允许您将派生类作为基类类型的参数传递。

如果你有一个名为 的类Bunny，它派生自一个名为 的类Animal，你可以将一个类型的变量传递Bunny给下面的函数吗？

Public Sub Chase(thePerson as Person, theAnimal as Animal)
    Do While thePerson.position <> theAnimal.position
        ...
    Loop
End Sub

Answer 1

如果您的 Bunny 类继承自 Animal，那么是的，您应该能够执行示例代码中所述的操作。