' 导入命名空间
Imports System.Xml
Imports System.Xml.Schema

Class XmlSchemaSetExample

    Shared Sub Main()

        Dim booksSettings As XmlReaderSettings = New XmlReaderSettings()
        booksSettings.Schemas.Add("http://www.contoso.com/books", "books.xsd")
        booksSettings.ValidationType = ValidationType.Schema
        AddHandler booksSettings.ValidationEventHandler, New ValidationEventHandler(AddressOf booksSettingsValidationEventHandler)

        Dim books As XmlReader = XmlReader.Create("books.xml", booksSettings)

        While books.Read()

        End While

    End Sub

    Shared Sub booksSettingsValidationEventHandler(ByVal sender As Object, ByVal e As ValidationEventArgs)

        If e.Severity = XmlSeverityType.Warning Then
            Console.Write("WARNING: ")
            Console.WriteLine(e.Message)

        ElseIf e.Severity = XmlSeverityType.Error Then
            Console.Write("ERROR: ")
            Console.WriteLine(e.Message)
        End If

    End Sub

End Class

' 导入命名空间
Imports System.Xml
Imports System.Xml.Schema ' contains XmlSchemaSet class


Public Class Tester
   Private Shared schemas As XmlSchemaSet ' schemas to validate against
   Private Shared valid As Boolean = True ' validation result

    Public Shared Sub Main


      schemas = New XmlSchemaSet() ' create the XmlSchemaSet class

      schemas.Add("http://www.deitel.com/booklist", "book.xsd")

      Dim settings As New XmlReaderSettings()
      settings.ValidationType = ValidationType.Schema
      settings.Schemas = schemas
      AddHandler settings.ValidationEventHandler, AddressOf ValidationError

      Dim reader As XmlReader = XmlReader.Create("YourFile.xml", settings)

      While reader.Read()
      End While

      Console.WriteLine(valid)

      valid = True ' reset variable
      reader.Close() ' close reader stream 

    End Sub
   Private Shared Sub ValidationError(ByVal sender As Object, _
      ByVal arguments As ValidationEventArgs)
      Console.WriteLine(arguments.Message)
      valid = False
   End Sub 

End Class