本文整理匯總了VB.NET中System.Xml.Serialization.XmlAttributes.XmlRoot屬性的典型用法代碼示例。如果您正苦於以下問題：VB.NET XmlAttributes.XmlRoot屬性的具體用法？VB.NET XmlAttributes.XmlRoot怎麽用？VB.NET XmlAttributes.XmlRoot使用的例子？那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在類System.Xml.Serialization.XmlAttributes的用法示例。
在下文中一共展示了XmlAttributes.XmlRoot屬性的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Group
' 導入命名空間
Imports System.IO
Imports System.Xml.Serialization
' This is the class that will be serialized.
Public Class Group
Public GroupName As String
<XmlAttribute()> Public GroupCode As Integer
End Class
Public Class Test
Public Shared Sub Main()
Dim t As New Test()
t.SerializeObject("OverrideRoot.xml")
End Sub
' Return an XmlSerializer for overriding attributes.
Public Function CreateOverrider() As XmlSerializer
' Create the XmlAttributes and XmlAttributeOverrides objects.
Dim attrs As New XmlAttributes()
Dim xOver As New XmlAttributeOverrides()
Dim xRoot As New XmlRootAttribute()
' Set a new Namespace and ElementName for the root element.
xRoot.Namespace = "http://www.cpandl.com"
xRoot.ElementName = "NewGroup"
attrs.XmlRoot = xRoot
' Add the XmlAttributes object to the XmlAttributeOverrides.
' No member name is needed because the whole class is
' overridden.
xOver.Add(GetType(Group), attrs)
' Get the XmlAttributes object, based on the type.
Dim tempAttrs As XmlAttributes
tempAttrs = xOver(GetType(Group))
' Print the Namespace and ElementName of the root.
Console.WriteLine(tempAttrs.XmlRoot.Namespace)
Console.WriteLine(tempAttrs.XmlRoot.ElementName)
Dim xSer As New XmlSerializer(GetType(Group), xOver)
Return xSer
End Function
Public Sub SerializeObject(ByVal filename As String)
' Create the XmlSerializer using the CreateOverrider method.
Dim xSer As XmlSerializer = CreateOverrider()
' Create the object to serialize.
Dim myGroup As New Group()
myGroup.GroupName = ".NET"
myGroup.GroupCode = 123
' To write the file, a TextWriter is required.
Dim writer As New StreamWriter(filename)
' Serialize the object and close the TextWriter.
xSer.Serialize(writer, myGroup)
writer.Close()
End Sub
End Class