Validate contosoBooks.xml
Imports System Imports System.Xml Imports System.Xml.Schema Imports System.Xml.XPath Class ValidatingReaderExample Shared Sub Main(ByVal args() As String) Try Dim settings As XmlReaderSettings = New XmlReaderSettings() settings.Schemas.Add("http://www.yourname.com/books", "contosoBooks.xsd") settings.ValidationType = ValidationType.Schema Dim reader As XmlReader = XmlReader.Create("contosoBooks.xml", settings) Dim document As XmlDocument = New XmlDocument() document.Load(reader) Dim navigator As XPathNavigator = document.CreateNavigator() Catch e As Exception Console.WriteLine("ValidatingReaderExample.Exception: {0}", e.Message) End Try End Sub Shared Sub SchemaValidationHandler(ByVal sender As Object, ByVal e As ValidationEventArgs) Select Case e.Severity Case XmlSeverityType.Error Console.WriteLine("Schema Validation Error: {0}", e.Message) Exit Sub Case XmlSeverityType.Warning Console.WriteLine("Schema Validation Warning: {0}", e.Message) Exit Sub End Select End Sub End Class