Mega Code Archive

 

Categories / VB.Net / XML

 

Create XmlSchemaComplexType

Option Explicit On Option Strict On Imports System Imports System.Xml Imports System.Xml.Schema Public Class XMLSchemaExamples1     Public Shared Sub Main()         Dim schema As New XmlSchema()         Dim complexType As New XmlSchemaComplexType()         Dim elementPets As New XmlSchemaElement()         elementPets.SchemaType = complexType         Dim choice As New XmlSchemaChoice()         complexType.Particle = choice         choice.MinOccurs = 0         choice.MaxOccursString = "unbounded"     End Sub End Class