Mega Code Archive

 

Categories / VB.Net / XML

 

XmlSchemaAny Class represents the World Wide Web Consortium (W3C) any element

Option Explicit On Option Strict On Imports System Imports System.Xml Imports System.Xml.Schema Class XMLSchemaExamples     Public Shared Sub Main()         Dim schema As New XmlSchema()         Dim xeHtmlText As New XmlSchemaElement()         xeHtmlText.Name = "htmlText"         Dim ct As New XmlSchemaComplexType()         Dim sequence As New XmlSchemaSequence()         Dim any As New XmlSchemaAny()         any.MinOccurs = 1         any.MaxOccursString = "unbounded"         any.Namespace = "http://www.w3.org/1999/xhtml"         any.ProcessContents = XmlSchemaContentProcessing.Lax         sequence.Items.Add(any)         ct.Particle = sequence         xeHtmlText.SchemaType = ct         schema.Items.Add(xeHtmlText)     End Sub 'Main End Class