本文整理匯總了VB.NET中System.Xml.Serialization.XmlAttributeAttribute.AttributeName屬性的典型用法代碼示例。如果您正苦於以下問題：VB.NET XmlAttributeAttribute.AttributeName屬性的具體用法？VB.NET XmlAttributeAttribute.AttributeName怎麽用？VB.NET XmlAttributeAttribute.AttributeName使用的例子？那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在類System.Xml.Serialization.XmlAttributeAttribute的用法示例。
在下文中一共展示了XmlAttributeAttribute.AttributeName屬性的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Group
Option Explicit
Option Strict
Imports System.IO
Imports System.Xml
Imports System.Xml.Serialization
Public Class Group
' Change the XML attribute name.
<XmlAttribute(AttributeName := "MgrName")> Public Name As String
' Use the AttributeName to collect all the XML attributes
' in the XML-document instance.
<XmlAttribute(AttributeName := "*")> Public Attrs() As XmlAttribute
End Class
Public Class Run
Public Shared Sub Main()
Dim test As New Run()
' To use the AttributeName to collect all the
' XML attributes. Call SerializeObject to generate
' an XML document and alter the document by adding
' new XML attributes to it. Then comment out the SerializeObject
' method, and call DeserializeObject.
test.SerializeObject("MyAtts.xml")
test.DeserializeObject("MyAtts.xml")
End Sub
Public Sub SerializeObject(ByVal filename As String)
Console.WriteLine("Serializing")
' Create an instance of the XmlSerializer class.
Dim mySerializer As New XmlSerializer(GetType(Group))
' Writing the file requires a TextWriter.
Dim writer As New StreamWriter(filename)
' Create an instance of the class that will be serialized.
Dim myGroup As New Group()
' Set the Name property, which will be generated
' as an XML attribute.
myGroup.Name = "Wallace"
' Serialize the class, and close the TextWriter.
mySerializer.Serialize(writer, myGroup)
writer.Close()
End Sub
Public Sub DeserializeObject(ByVal filename As String)
Console.WriteLine("Deserializing")
Dim mySerializer As New XmlSerializer(GetType(Group))
Dim fs As New FileStream(filename, FileMode.Open)
Dim myGroup As Group = CType(mySerializer.Deserialize(fs), Group)
' The following code prints all the attributes in the
' XML document. To collect the attributes, the AttributeName of the
' XmlAttributeAttribute must be set to "*".
Dim xAtt As XmlAttribute
For Each xAtt In myGroup.Attrs
Console.WriteLine(xAtt.Name & ":" & xAtt.Value)
Next xAtt
End Sub
End Class