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

我有一个基类,一个DerivedClass1和一个来自第三方库的DerivedClass2。DerivedClass1和DerivedClass2都继承自基类。

同一个库中有一个ContainerClass,它的成员变量ActiveItem可以是DerivedClass1或DerivedClass2,因此它被声明为基类。

我想知道ActiveItem是否是DerivedClass1,因为它可以在运行时更改而不需要通知。

如果我这样做了

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

然后我得到一个编译时错误,告诉我ActiveItem永远不能是DerivedClass1类型。

我想我可以用反思来做,但似乎真的太过分了。

以下代码不在vs2005sp1中编译。

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

原来的问题似乎是我这边的错。我在检查错误的类型(那些愚蠢的第三部分库…) 但是,我仍在尝试查找上面代码中的错误。

编辑: 又是我的错。我在检查 无关的 底座 .