2013-07-02 88 views
0

如何檢查某個對象是否屬於某個函數中的某種類型。這裏是我的代碼:是某種類型的對象

Public Function IsSerializedObjectAValidObjectType(Of ObjectType)(FileName As String) As Boolean 
    Dim ObjectToCheck As New Object 
    ObjectToCheck = OpenObjectFromFile(FileName) 
    Return ObjectToCheck.GetType Is ObjectType 
End Function 

以下代碼從文件中獲取對象。

ObjectToCheck = OpenObjectFromFile(FileName) 
+0

只是一個小點:您正在創建一個新的對象(使用新的關鍵字),然後立即拋出的是新創建的對象路程,從返回的實例替換它OpenObjectFromFile。您可以通過在此代碼示例中省略New關鍵字來保存創建不必要的對象。只需使用這一行:'Dim ObjetToCheck As Object = OpenObjectFromFile(FileName)' –

回答

0

試試這個:

Public Function IsSerializedObjectAValidObjectType(Of T)(FileName As String) As Boolean 
     Dim ObjectToCheck As New Object 
     ObjectToCheck = OpenObjectFromFile(FileName) 
     Return TypeOf ObjectToCheck.GetType Is T 
End Function 
相關問題