如何检查变量的最终类型？

Question

我有一个来自第三方库的 BaseClass、DerivedClass1 和 DerivedClass2。 DerivedClass1 和 DerivedClass2 都继承自 BaseClass。

有一个ContainerClass，来自同一个库，有一个成员变量ActiveItem，它可以是DerivedClass1或DerivedClass2，所以它被声明为BaseClass。

我想知道 ActiveItem 是否属于 DerivedClass1，因为它可以在运行时更改，恕不另行通知。

如果这样做

 Dim isDerivedClass1 as boolean = TypeOf(oject.ActiveItem) Is DerivedClass1 

，则会出现编译时错误，告诉我 ActiveItem 永远不能是 DerivedClass1 类型。

我已经尝试了 GetType 和 TypeOf 的几种组合，但似乎无法检查这一点。我还尝试声明一个辅助 DerivedClass1 变量并比较它们的类型，但也没有任何运气。

有什么解决方法吗？ 我想我可以用反射来做到这一点，但看起来确实有点矫枉过正。

编辑： 以下代码在 vs2005 SP1 中无法编译。

Public Class Base
    Public x As Integer
End Class
Public Class Derived1
Inherits Base
    Public y As Integer
End Class
Public Class Derived2
Inherits Base
    Public z As Integer
End Class
Public Class Unrelated
    Public var As Base
End Class


Public Class Form1
    Public Sub Test(ByVal obj As Unrelated)
        Dim tst As Boolean
        tst = TypeOf obj Is Derived1
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim obj As New Unrelated
        obj.var = New Derived1
        Test(obj)
    End Sub
End Class

编辑： 看来原来的问题是我这边的错。我正在检查错误的类型（那些愚蠢的第三方库......） 但是，我仍在尝试查找上面代码中的错误。

编辑： 又是我的错。我正在对照基本检查不相关类型。

Answer 1

您的代码似乎几乎完全正确。

我已经这样做了，效果很好：

Dim isDerivedClass1 As Boolean = TypeOf oject.ActiveItem Is DerivedClass1
Dim isDerivedClass2 As Boolean = TypeOf oject.ActiveItem Is DerivedClass2

我错过了什么吗？

编辑：我认为您刚刚错过了编辑代码中的 var 属性。

Public Sub Test(ByVal obj As Unrelated)
    Dim tst As Boolean
    tst = TypeOf obj.var Is Derived1
End Sub

Answer 2

您必须相信编译器这一点，它确信 DerivedClass1 确实不继承 BaseClass。这并没有错。这要么是因为它在 DerivedClass1 声明中没有看到 Inherits 子句，要么是因为它从另一个程序集中选择了 BaseClass 定义。

要解决前一个问题，您别无选择，只能将 ActiveItem 声明为 Object 或找到这些类共有的另一种类型。使用对象浏览器。要解决后一个问题，您必须更改 Imports 指令或拼出 BaseClass 类型的全名（包括命名空间）。

Answer 3

一个简单的可能性是使用 TryCast：

Dim isDerivedClass1 As Boolean = TryCast(object.ActiveItem, DerivedClass1) IsNot Nothing