本文整理汇总了VB.NET中System.Xml.Serialization.XmlSerializerNamespaces.XmlSerializerNamespaces构造函数的典型用法代码示例。如果您正苦于以下问题:VB.NET XmlSerializerNamespaces构造函数的具体用法?VB.NET XmlSerializerNamespaces怎么用?VB.NET XmlSerializerNamespaces使用的例子?那么, 这里精选的构造函数代码示例或许可以为您提供帮助。您也可以进一步了解该构造函数所在类System.Xml.Serialization.XmlSerializerNamespaces
的用法示例。
在下文中一共展示了XmlSerializerNamespaces构造函数的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: CreateBook
Private Sub CreateBook(filename As String)
Try
' Create instance of XmlSerializerNamespaces and add the namespaces.
Dim myNameSpaces As New XmlSerializerNamespaces()
myNameSpaces.Add("BookName", "http://www.cpandl.com")
' Create instance of XmlSerializer and specify the type of object;
' to be serialized.
Dim mySerializerObject As New XmlSerializer(GetType(MyBook))
Dim myWriter = New StreamWriter(filename)
' Create object to be serialized.
Dim myXMLBook As New MyBook()
myXMLBook.Author = "XMLAuthor"
myXMLBook.BookName = "DIG THE XML"
myXMLBook.Description = "This is a XML Book"
Dim myBookPrice As New MyPriceClass()
myBookPrice.Price = CDec(45.89)
myBookPrice.Units = "$"
myXMLBook.BookPrice = myBookPrice
' Serialize the object.
mySerializerObject.Serialize(myWriter, myXMLBook, myNameSpaces)
myWriter.Close()
Catch e As Exception
Console.WriteLine("Exception :" & e.Message & "Occurred")
End Try
End Sub
示例2: CreateFromQNames
Private Function CreateFromQNames() As XmlSerializerNamespaces
Dim q1 As New XmlQualifiedName("money", "http://www.cohowinery.com")
Dim q2 As New XmlQualifiedName("books", "http://www.cpandl.com")
Dim names() As XmlQualifiedName = {q1, q2}
Return New XmlSerializerNamespaces(names)
End Function