El código de función de extensión de XSD de Visual Basic
El siguiente miniprograma de código muestra cómo utilizar las funciones de extensión para devolver nodos basados en su tipo de datos XSD. Este código de ejemplo utiliza la función type-is para devolver el primer tipo de datos String en el documento y la función type-local-name para devolver una lista de nodos del tipo de datos String.
El código de Visual Basic crea un objeto XMLSchemaCache60, agrega una declaración URI del espacio de nombres (urn:books) y el esquema (books.xsd) al objeto y, a continuación, hace referencia al esquema usando la propiedad schemas del objeto DOMDocument. Observe que en el código la propiedad SelectionLanguage se establece en XPath y la propiedad SelectionNamespaces lo hace en "xmlns:ms='urn:schemas-microsoft-com:xslt" habilitando así el prefijo del espacio de nombres ms: que se va a usar. La validación se lleva a cabo cuando se carga el archivo books.xml en el objeto DOMDocument. Los errores de validación se devuelven mediante la propiedad parseError del objeto DOMDocument.
Para ejecutar el ejemplo
Copie el código que se muestra a continuación en el procedimiento Comand1_Click. Debería parecerse al código en el miniprograma de código cuando haya finalizado.
En la barra de herramientas de Visual Basic, haga clic en Inicio y, a continuación, en el botón Command1 en form1.
Cuando ejecuta el ejemplo, la instrucción Set objNodeList = xmldom.selectNodes "//*[ms:type-is('http://www.w3.org/2001/XMLSchema','string')]") devuelve una lista de nodos de cadena de tipos de datos. El bucle For/Next realiza una interacción a través de los nodos y muestra el texto de cada nodo en un cuadro de mensaje.