¡¡¡Buscamos ejemplos del uso de vb para manipular xml!!!

Tengo proyecto para agregar referencia a

Microsoft XML, v4.4

El código es el siguiente

'Subproceso para guardar datos actuales

Private Sub SaveValues()

Atenuar xml_document como DOMDocument

Atenuar valores_nodo como IXMLDOMNode

Atenuar dirección_nodo como IXMLDOMNode

Atenuar nombre_nodo Como IXMLDOMNode

Establecer xml_document = Nuevo DOMDocument 'Crear objeto de documento XML

Establecer valores_node = xml_document. createElement("Values") ' Crea los valores del nodo raíz (sección)

xml_document. appendChild value_node 'Agrega el nodo Valores al documento

'Llama al subproceso CreateNode para crear un árbol DOM

'Crea un nodo Nombre (sección), que contiene el nodo hijo nodos

Set name_node = xml_document.createElement(Frame2.Caption)

values_node.appendChild name_node

'Agrega el nodo secundario del nodo Nombre

CreateNode nombre_nodo, "FirstName", txtFirstName.

CreateNode dirección_nodo, "Ciudad", txtCity.Text

CreateNode dirección_nodo, "Estado", txtState.Text

CreateNode dirección_nodo, "Zip" , txtZip.Text

'Guarda el documento XML.

xml_document.save m_AppPath & txtFirstName.Text & "Values.xml"

End Sub

'Agregar un nodo secundario al nodo principal especificado

Sub CreateNode privado (ByVal padre como IXMLDOMNode, _

ByVal node_name como cadena, ByVal node_value como cadena)

Dim new_Node como IXMLDOMNode

Establecer new_Node = parent.ownerDocument. createElement(node_name) 'Crea un nuevo nodo

new_Node.Text = node_value 'Agrega un nodo secundario al nodo principal especificado

Private Sub CreateNode(ByVal padre) Como IXMLDOMNode, _

ByVal nombre_nodo como cadena, ByVal valor_nodo como cadena)