如何在VB中检查对象的类型6 - 是否有任何方法，而不是'TypeName'

Question

如何检查VB中的对象类型6 - 是否有任何方法，而不是'TypeName'，因为它不可行， TypeName'我期待着像QuichWatch窗口。

Answer 1

对象变量，使用TypeOf ... Is：

If TypeOf VarName Is TypeName Then 
    ''# ... 
End If 

例如：

Dim fso As New Scripting.FileSystemObject 

If TypeOf fso Is Scripting.FileSystemObject Then 
    Debug.Print "Yay!" 
End If 

Answer 2

只需添加到@托默勒格的答案...如果对象变量没有被实例化，然后用typeof测试会导致运行时错误。还要注意，该课程可能会实现接口

Dim fs As Scripting.FileSystemObject 

On Error Goto Err_Handler 

If TypeOf fs Is Scripting.FileSystemObject Then 
    Debug.Print "[Won't get here]" 
End If 

Err_Handler: 

If Err.Number <> 0 Then 
    Debug.Print "Oops, error when fs Is Nothing" 
End If 

On Error Resume Next 

Set fs = New Scripting.FileSystemObject 

If TypeOf fs Is Scripting.FileSystemObject Then 
    Debug.Print "Is a FileSystemObject" 
End If 

If TypeOf fs Is IFileSystem Then 
    Debug.Print "Implements IFileSystem " 
End If 

Answer 3

试试这个。

dim obj as object 
for each obj in me 
    debug.print TypeName(obj) 
next