Mega Code Archive
XmlSchemaComplexType Particle
<![CDATA[
Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Collections
Imports System.Data
Imports System.Windows.Forms
Public Class MainClass
Shared Sub Main()
Dim Schema As XmlSchema = New XmlSchema()
Dim ElementBook As New XmlSchemaElement()
Schema.Items.Add(ElementBook)
ElementBook.Name = "Book"
Dim ComplexType As New XmlSchemaComplexType()
ElementBook.SchemaType = ComplexType
Dim Sequence As New XmlSchemaSequence()
ComplexType.Particle = Sequence
Dim ElementTitle As New XmlSchemaElement()
ElementTitle.Name = "Title"
ElementTitle.SchemaTypeName = New XmlQualifiedName("string", _
"http://www.w3.org/2001/XMLSchema")
Dim ElementPublisher As New XmlSchemaElement()
ElementPublisher.Name = "Publisher"
ElementPublisher.SchemaTypeName = New XmlQualifiedName("string", _
"http://www.w3.org/2001/XMLSchema")
Sequence.Items.Add(ElementTitle)
Sequence.Items.Add(ElementPublisher)
Schema.Compile(New ValidationEventHandler(AddressOf ValidationHandler))
Schema.Write(Console.Out)
End Sub
Shared Sub ValidationHandler(ByVal sender As Object, _
ByVal args As ValidationEventArgs)
Console.WriteLine("Schema Validation Failed.")
Console.WriteLine(args.Message)
End Sub
End Class
]]>