Mega Code Archive

 

Categories / VB.Net / XML

 

Create substitutionGroup

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 elementRedDog As New XmlSchemaElement()         schema.Items.Add(elementRedDog)         elementRedDog.Name = "a"         elementRedDog.SubstitutionGroup = New XmlQualifiedName("dog")     End Sub  End Class