vb.net mustinherit cast child答案

【问题标题】：vb.net mustinherit casting childvb.net mustinherit cast child
【发布时间】：2013-02-07 19:56:45
【问题描述】：

我使用 mustInherit 类

我创造了一些看起来像这样的东西

Sub OnLoad
    ...
        Dim o As Object = BaseX(Of Object).LoadItem
        dim gv as Gridview = o.AddGridview(myPanel)
    ...
end Sub

MustInherit Class BaseX(Of T1)
    Public Shared Function LoadItem() As Object
        ...
            'Create Item FirstX or SecondX
            'return the new Item
        ...
    End Function

    Public Function GetGridview(ByVal container As Panel) As Gridview
        'return a gridview
    End Function
End Class

Class FirstX Inherits BaseX(of A)
...
End Class

Class SecondX Inherits BaseX(of B)
...
End Class

“dim gv as Gridview = o.AddGridview(myPanel)”出现错误

错误 18 后期绑定分辨率；可能会发生运行时错误。

错误 19 警告被视为错误：后期绑定解决方案；运行可能会发生错误。

我试试

Dim gv As GridView = DirectCast(o, BaseX(Of Object)).AddGridview(myPanel)

但我遇到了运行时错误

无法将对象类型 FirstX 强制转换为 BaseX 类型

如果你有路要走？我应该改变什么？

【问题讨论】：

标签： vb.net inheritance

【解决方案1】：

您不能将 BaseX(of Object) 转换为 FirstX，因为 FirstX 是从 BaseX(of A) 继承的。即使 A 继承自 Object，BaseX(Of Object) 也不是 BaseX(of A) 的父级。

考虑一下：

Class A
    public overrides Sub ToString()
         Console.Writeline("A")
    End Sub
End Class

Class FirstX Inherits BaseX(of A)
    public overrides Sub ToString()
         A.ToString()
    End Sub
End Class

你可以看到 BaseX(Of Object).ToString() 和 BaseX(of A).ToString() 是不一样的，它是两个完全不同的类，不会从另一个继承。

要解决您的问题，您可以直接转换为 FirstX 或 BaseX(of A)。为了可扩展性，我建议创建一个由 BaseX(of T) 实现的接口 IBaseX。然后你就可以随时上传到界面了。

Interface IBaseX
    Function GetGridview(ByVal container As Panel) As Gridview
End Interface

MustInherit Class BaseX(Of T1)
    Implements IBaseX

    Public Shared Function LoadItem() As Object
        ...
            'Create Item FirstX or SecondX
            'return the new Item
        ...
    End Function

    Public Function GetGridview(ByVal container As Panel) As Gridview
        Implements IBaseX.GetGridView
        'return a gridview

    End Function

End Class

向上转型：

Dim gv As GridView = CType(o, IBaseX).AddGridview(myPanel)

注意：这是 VB.NET 代码，它可能不适用于 Excels VB 6.0

【讨论】：