本文整理汇总了VB.NET中System.Xml.Schema.XmlSchemaAppInfo类的典型用法代码示例。如果您正苦于以下问题：VB.NET XmlSchemaAppInfo类的具体用法？VB.NET XmlSchemaAppInfo怎么用？VB.NET XmlSchemaAppInfo使用的例子？那么恭喜您, 这里精选的类代码示例或许可以为您提供帮助。
在下文中一共展示了XmlSchemaAppInfo类的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: XMLSchemaExamples
Option Explicit On
Option Strict On
Imports System.Xml
Imports System.Xml.Schema
Class XMLSchemaExamples
Public Shared Sub Main()
Dim schema As New XmlSchema()
' <xs:element name="State">
Dim element As New XmlSchemaElement()
schema.Items.Add(element)
element.Name = "State"
' <xs:annotation>
Dim annNorthwestStates As New XmlSchemaAnnotation()
element.Annotation = annNorthwestStates
' <xs:documentation>State Name</xs:documentation>
Dim docNorthwestStates As New XmlSchemaDocumentation()
annNorthwestStates.Items.Add(docNorthwestStates)
docNorthwestStates.Markup = TextToNodeArray("State Name")
' <xs:appInfo>Application Information</xs:appInfo>
Dim appInfo As New XmlSchemaAppInfo()
annNorthwestStates.Items.Add(appInfo)
appInfo.Markup = TextToNodeArray("Application Information")
Dim schemaSet As New XmlSchemaSet()
AddHandler schemaSet.ValidationEventHandler, AddressOf ValidationCallbackOne
schemaSet.Add(schema)
schemaSet.Compile()
Dim compiledSchema As XmlSchema = Nothing
For Each schema1 As XmlSchema In schemaSet.Schemas()
compiledSchema = schema1
Next
Dim nsmgr As New XmlNamespaceManager(New NameTable())
nsmgr.AddNamespace("xs", "http://www.w3.org/2001/XMLSchema")
compiledSchema.Write(Console.Out, nsmgr)
End Sub
Public Shared Sub ValidationCallbackOne(ByVal sender As Object, ByVal args As ValidationEventArgs)
Console.WriteLine(args.Message)
End Sub
Public Shared Function TextToNodeArray(ByVal text As String) As XmlNode()
Dim doc As New XmlDocument()
Return New XmlNode(0) {doc.CreateTextNode(text)}
End Function 'TextToNodeArray
End Class