本文整理匯總了VB.NET中System.Xml.Serialization.XmlRootAttribute.XmlRootAttribute構造函數的典型用法代碼示例。如果您正苦於以下問題：VB.NET XmlRootAttribute構造函數的具體用法？VB.NET XmlRootAttribute怎麽用？VB.NET XmlRootAttribute使用的例子？那麽, 這裏精選的構造函數代碼示例或許可以為您提供幫助。您也可以進一步了解該構造函數所在類System.Xml.Serialization.XmlRootAttribute的用法示例。
在下文中一共展示了XmlRootAttribute構造函數的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: MyClass1
' 導入命名空間
Imports System.IO
Imports System.Xml.Serialization
' This is the class that is the default root element.
Public Class MyClass1
Public Name As String
End Class
Public Class Run
Public Shared Sub Main()
Dim test As New Run()
test.SerializeOrder("OverrideAttribute.xml")
End Sub
Public Sub SerializeOrder(ByVal filename As String)
' Create an XmlSerializer instance using the method below.
Dim xSer As XmlSerializer = CreateOverrider()
' Create the object, and set its Name property.
Dim class1 As New MyClass1()
class1.Name = "New Class Name"
' Serialize the class, and close the TextWriter.
Dim writer As New StreamWriter(filename)
xSer.Serialize(writer, class1)
writer.Close()
End Sub
' Return an XmlSerializer to override the root serialization.
Public Function CreateOverrider() As XmlSerializer
' Create an XmlAttributes to override the default root element.
Dim attrs As New XmlAttributes()
' Create an XmlRootAttribute and set its element name and namespace.
Dim xRoot As New XmlRootAttribute()
xRoot.ElementName = "OverriddenRootElementName"
xRoot.Namespace = "http://www.microsoft.com"
' Set the XmlRoot property to the XmlRoot object.
attrs.XmlRoot = xRoot
Dim xOver As New XmlAttributeOverrides()
' Add the XmlAttributes object to the
' XmlAttributeOverrides object.
xOver.Add(GetType(MyClass1), attrs)
' Create the Serializer, and return it.
Dim xSer As New XmlSerializer(GetType(MyClass1), xOver)
Return xSer
End Function
End Class示例2: SerializeOrder
Public Sub SerializeOrder(filename As String)
' Create an XmlSerializer instance using the method below.
Dim myXmlSerializer As XmlSerializer = CreateOverrider()
' Create the object, and set its Name property.
Dim myStudent As New Student()
myStudent.Name = "Student class1"
' Serialize the class, and close the TextWriter.
Dim writer = New StreamWriter(filename)
myXmlSerializer.Serialize(writer, myStudent)
writer.Close()
End Sub
' Return an XmlSerializer to override the root serialization.
Public Function CreateOverrider() As XmlSerializer
' Create an XmlAttributes to override the default root element.
Dim myXmlAttributes As New XmlAttributes()
' Create an XmlRootAttribute overloaded constructer and set its namespace.
Dim myXmlRootAttribute As New XmlRootAttribute("OverriddenRootElementName")
myXmlRootAttribute.Namespace = "http://www.microsoft.com"
' Set the XmlRoot property to the XmlRoot object.
myXmlAttributes.XmlRoot = myXmlRootAttribute
Dim myXmlAttributeOverrides As New XmlAttributeOverrides()
' Add the XmlAttributes object to the XmlAttributeOverrides object.
myXmlAttributeOverrides.Add(GetType(Student), myXmlAttributes)
' Create the Serializer, and return it.
Dim myXmlSerializer As New XmlSerializer(GetType(Student), myXmlAttributeOverrides)
Return myXmlSerializer
End Function