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

Public Module Sample 
  Public Sub Main() 

    ' Create the XmlSchemaSet class.
    Dim sc as XmlSchemaSet = new XmlSchemaSet()

    ' Add the schema to the collection.
    sc.Add("urn:bookstore-schema", "books.xsd")

    ' Set the validation settings.
    Dim settings as XmlReaderSettings = new XmlReaderSettings()
    settings.ValidationType = ValidationType.Schema
    settings.Schemas = sc
    AddHandler settings.ValidationEventHandler, AddressOf ValidationCallBack
 
    ' Create the XmlReader object.
    Dim reader as XmlReader = XmlReader.Create("booksSchemaFail.xml", settings)

    ' Parse the file. 
    While reader.Read()
    End While
    
  End Sub

  ' Display any validation errors.
  Private Sub ValidationCallBack(sender as object, e as ValidationEventArgs) 
    Console.WriteLine($"Validation Error:{vbCrLf}   {e.Message}")
    Console.WriteLine()
  End Sub
End Module

' 导入命名空间
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