检查对象是否在VB6中实现了特定接口

Question

如何检查一个对象是否在VB6中实现了特定的接口？我有以下代码：

Dim nodes As MSXML2.IXMLDOMNodeList
Dim node As MSXML2.IXMLDOMNode
Dim element As MSXML2.IXMLDOMElement

...

For Each node In nodes.childNodes
    If (node is MSXML2.IXMLDOMElement (how to do this?)) Then
        Set element = node
        ...
    Else
        ...
    End If

Answer 1

替换

If (node is MSXML2.IXMLDOMElement (how to do this?)) Then

使用

If TypeOf node Is MSXML2.IXMLDOMElement Then

仅供参考:在使用TypeOf之前，您必须确保node不是Nothing，否则它将引发运行时错误对象变量(或未设置的块)。

Answer 2

在这种情况下，函数调用TypeName(节点)是否会为您返回"MSXML2.IXMLDOMElement“？如果是这样，这可能就是解决方案。

Answer 3

只需将其赋值给'element‘，如果赋值错误继续，请尝试下一个接口。