Serializes an object using an XmlWriter.

   

Imports System
Imports System.IO
Imports System.Text
Imports System.Xml
Imports System.Xml.Serialization

Public Class OrderedItem
    Public ItemName As String
    Public Description As String
    Public UnitPrice As Decimal
    Public Quantity As Integer
    Public LineTotal As Decimal

    Public Sub Calculate()
        LineTotal = UnitPrice * Quantity
    End Sub
End Class


Public Class Test

    Public Shared Sub Main()
        Dim serializer As New XmlSerializer(GetType(OrderedItem))
        Dim i As New OrderedItem()
        With i
            .ItemName = "Widget"
            .Description = "Regular Widget"
            .Quantity = 10
            .UnitPrice = CDec(2.3)
            .Calculate()
        End With
        Dim fs As New FileStream("c:\\a.xml", FileMode.Create)
        Dim writer As New XmlTextWriter(fs, Encoding.Unicode)
        serializer.Serialize(writer, i)
        writer.Close()
    End Sub
End Class

Related examples in the same category

1.	XmlSerializer Demo
2.	Serialize Class to XML Document
3.	Saves the XML document to the specified file.
4.	SaveOptions.None

Serializes an object using an XmlWriter. : XML Serialize « XML « VB.Net

Related examples in the same category