Explorador XML Para Visual Basic 6.00

Se encuentran los códigos fuentes de un explorador Xml


El metodo Interpretar es invocado por cada iteración, es decir en está sección se hace el mapeo del archivo Xml.

Public Sub Interpretar(nivel As Integer, etiqueta As String, Valor As String, oElement As CXmlElement)
  MsgBox nivel & " " & etiqueta & " " & Valor
 
End Sub

De esta forma se obtiene los atributos Xml

Dim lCount as Integer
    For lCount = 1 To oElement.AttributeCount
        Set oAtt = oElement.ElementAttribute(lCount)
        msgbox oAtt.KeyWord
        msgbox oAtt.Value
    Next