Проверьте, реализует ли объект определенный интерфейс в 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

Просто назначьте его элементу, и если назначение возобновится по ошибке, попробуйте следующий интерфейс.

Answer 3

В этом случае вызов функции TypeName (узел) возвращает для вас "MSXML2.IXMLDOMElement"? Если так, то это может быть решением.