はい、元のSuperClassメソッドは引き続きインターフェイスを実装しますが、元のSuperclassメソッドを使用します。署名が同じである場合は、シャドウの代わりにオーバーライドを使用します。同じ署名がない場合は、とにかくインターフェイスを実装できません。
Module Module1
Sub Main()
Dim myiTest As IMyInterface
myiTest = New MySuperClass
myiTest.MyMethod(1, "a")
myiTest = New MySubClass
myiTest.MyMethod(1, "a")
myiTest = New MySubClass2
myiTest.MyMethod(1, "a")
End Sub
Interface IMyInterface
Sub MyMethod(a As Integer, b As String)
End Interface
Class MySuperClass
Implements IMyInterface
Public Overridable Sub MyMethod(a As Integer, b As String) Implements IMyInterface.MyMethod
MsgBox("Original MyMethod")
End Sub
End Class
Class MySubClass
Inherits MySuperClass
Public Shadows Sub MyMethod(a As Integer, b As String)
MsgBox("Shadowed MyMethod")
End Sub
End Class
Class MySubClass2
Inherits MySuperClass
Public Overrides Sub MyMethod(a As Integer, b As String)
MsgBox("Overridden MyMethod")
End Sub
End Class
End Module