VB .NET DirectCast和类型反射

Question

我正在开发的应用程序有一个名为RSChild的泛型父窗体，它用于执行某些操作，具体取决于其中包含的控件是在MdiTabManager中还是在它自己的模态窗体中。然后，包含在其中的实际用户控件继承自一个名为ObjectEdit的接口(我们允许编辑的对象)。在我的代码中的某一点上，我正在这样做。

Public Function doesTabExist(ByVal id As Integer, ByVal recordType As Enums.eRecordType) As Boolean
        Dim alikePages As Object = (From tabs In DirectCast(Control.FromHandle(MainForm.SharedHandle), MainForm).XtraTabbedMdiManager1.Pages Where DirectCast(tabs.MdiChild, RSChild).RSObject.RecordType = recordType Select tabs)
        For Each page As DevExpress.XtraTabbedMdi.XtraMdiTabPage In alikePages
            Select Case recordType
                Case Enums.eRecordType.Doctor
                    If id = DirectCast(castTabPageToRSChild(page).RSObject, UI.Doctor).ID Then
                        pageToActive(page)
                        Return True
                    End If
'rest of the cases so the case block is repeated 10 times'

End Function

我的castTabPageToRSChild(页面)就是这样的一个lambda函数

 Dim castTabPageToRSChild As Func(Of DevExpress.XtraTabbedMdi.XtraMdiTabPage, RSChild) = Function(page) DirectCast(page.MdiChild, RSChild)

所以我的问题是，我有大约10个case语句，所有这些都是因为我似乎找不到一种方法来使用反射来获取RSObject对象的底层类型。所以我让整个If代码块一遍又一遍地重复。我试着做castTabPageToRSChild(page)RSObject.GetType，并在DirectCast中使用它，我还试着创建另一个独立于它的对象，做同样的事情。

我的代码正常工作，我只是想看看是否有一种方式，我没有太多的复制代码。我的愿景是做一些类似的事情

For Each page As XtraMdiTabPage In alikePages
    If id = DirectCast(castTabPageToRSchild(page).RSObject, castTabPageToRSChild(page).RSObject.GetType).Id Then Return True
Next

然而，我有一种感觉，由于DirectCast的行为，这是不可能的。

Answer 1

请改用TryCast。如果对象不是预期的类型，则不返回任何内容。