您是否可以使用基类来允许将多个派生类作为参数传递给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，那么是的，您应该能够执行您在示例代码中声明的操作。