我在 IEquatable(Of T) 上遇到 CA1067 违规，无法解决

Question

我已经尝试了几个小时并进行了大量重新编码，但可以摆脱 CA1067 违规。
使用：
Visual Studio 2022、.Net v6.0.13、VB.NET

对于解决问题的任何帮助以及对我做错事的见解，我将不胜感激。

所以案例如下：
我有一个模板类SimNode(Of P,A)，其中P代表父节点的数据类型，A代表节点三个属性的数据类型。

Public Class SimNode(Of P, A)
    Implements ISimNode(Of P, A)
    Implements IEquatable(Of SimNode(Of P, A))

    '[a bunch of properties and methods]

    Public Overridable Shadows Function Equals(other As SimNode(Of P, A)) As Boolean Implements IEquatable(Of SimNode(Of P, A)).Equals
        If Not Parent.Equals(other.Parent) Then Return False
        If Depth <> other.Depth Then Return False
        ....
        Return True
    End Function
End Class

然后我需要创建另一个名为 SimNode 的类，它继承自 SimNode(UShort,UShort) 并需要一个 IEquatable(Of SimNode)，因为只有唯一的 SimNode 实例将被添加到模板“容器”-> Container(Of T as IEquatable(Of T)) 中。
容器这个词是通用的，它可以是例如列表、字典或哈希集。

这个新类与父类完全相同，但多了一个成员（列表）。

Private Class SimNode
    Inherits SimNode(Of UShort, UShort)
    Implements IEquatable(Of SimNode)

    '[a bunch of properties and methods]

    Private Shadows Function Equals(other As SimNode) As Boolean Implements IEquatable(Of SimNode).Equals
        Return MyBase.Equals(other)
    End Function
End Class

尽管有额外的列表，但我的平等标准仍然与父类中的相同。
这种方法会导致 CA1067 违规，我就是无法纠正。

我将非常感谢任何帮助！

我尝试遵循 Visual Studio 的建议，但都会导致错误。在子类 (SimNode) 中覆盖方法 Equals 的建议将产生明显的错误，因为它不能覆盖基类，因为它们具有不同的签名。

我也解决了这个https://stackoverflow.com/questions/2441346/cascading-iequatableof-t 没有成功。

Answer 1

在收到所有很好的反馈后，我得出了解决违规问题的答案。 该代码与我的编码方式有点不同，但似乎这是正确的做法。 关于答案的一些反馈将很高兴知道我是否正确地做到了这一点，以及这是否是你们想要告诉我的！ ;)

Module Program
    Sub Main()
        Dim storage As New Container(Of Y)
    End Sub

    Private Class Container(Of T As IEquatable(Of T))

    End Class

    Private Class X(Of P, A)
        Implements IEquatable(Of X(Of P, A))

        Public ReadOnly Parent As P
        Public ReadOnly Attribute As A

        Public Sub New(parent As P, attribute As A)
            Me.Parent = parent : Me.Attribute = attribute
        End Sub

        Public Overridable Function IEquatable_Equals(other As X(Of P, A)) As Boolean Implements IEquatable(Of X(Of P, A)).Equals
            If Not Parent.Equals(other.Parent) Then Return False
            If Not Attribute.Equals(other.Attribute) Then Return False

            Return True
        End Function

        Public Overrides Function Equals(obj As Object) As Boolean
            Return DirectCast(Me, IEquatable(Of X(Of P, A))).Equals(TryCast(obj, X(Of P, A)))
        End Function

        Public Overrides Function GetHashCode() As Integer
            Return MyBase.GetHashCode()
        End Function
    End Class

    Private Class Y
        Inherits X(Of UShort, UShort)
        Implements IEquatable(Of Y)

        Public ReadOnly Lines As List(Of Integer)

        Public Sub New(parent As UShort, attribute As UShort)
            MyBase.New(parent, attribute)
        End Sub

        Public Overloads Function Equals(other As Y) As Boolean Implements IEquatable(Of Y).Equals
            Return MyBase.IEquatable_Equals(other)
        End Function

        Public Overrides Function Equals(obj As Object) As Boolean
            Return DirectCast(Me, IEquatable(Of Y)).Equals(TryCast(obj, Y))
        End Function

        Public Overrides Function GetHashCode() As Integer
            Return Parent + Attribute
        End Function
    End Class
End Module