本文整理匯總了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