asp.net – 多态 – 覆盖和重载

Public Class Animal
    Public Overridable Overloads Sub Eat()
        MsgBox("Animal Eat no arguement")
    End Sub
    Public Overridable Sub Drink()
        MsgBox("Animal drink arguement")
    End Sub
End Class

Public Class Horse
    Inherits Animal
    Public Overloads Overrides Sub Eat()
        MsgBox("Horse Eat no arguement")
    End Sub
    Public Overloads Sub Eat(ByVal food As String)
        MsgBox("Horse Eat food arguement")
    End Sub
    Public Overloads Overrides Sub Drink()
        MsgBox("Animal drink arguement")
    End Sub
End Class

Public Class Form1

    Private Sub Form2_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load
        Dim a1 As New Animal
        Dim a2 As Animal
        a2 = New Horse
        a1.Eat()
        a2.Eat("Fruit") 'line 6
    End Sub
End Class

第6行将导致编译时错误,因为程序代表.但是,如果我向动物类添加一个Eat(String),那么它将编译.这背后的原因是什么？

以下帖子中的答案还说：“Overloads关键字是可选的,但如果您将其用于一种方法,则必须将其用于该方法的所有重载：”https://stackoverflow.com/questions/1173257/overloads -keyword式-VB网.如果有问题的函数也覆盖,我并不总是发现这种情况.是这样的吗？

我正在寻找一个使用多态性和接口的大型程序.我提供了上面的课程作为例子用于说明目的.