检查对象是否在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（node）是否为您返回“MSXML2.IXMLDOMElement”？如果是这样可能是解决方案。

Answer 3

只需将其分配给'element'，如果分配恢复错误，请尝试下一个界面。