Collections Serializable

Este exemplo utiliza uma classe Livro e uma classe Livros que armazena um conjunto de livros na forma de Collections

O exemplo demonstra como pode ser gerado e lido um ficheiro XML com a informação dos livros da classe

Código completo

Form de teste

Para Criar Ficheiro XML (Serialize)

Dim writer As New System.Xml.Serialization.XmlSerializer(GetType(BooksCollections))

Dim file As New System.IO.StreamWriter(MyFilename)

writer.Serialize(file, livros)

file.Close()

Para Ler Ficheiro XML (Deserialize)

Dim reader As New System.Xml.Serialization.XmlSerializer(GetType(BooksCollections))

Dim file As New System.IO.StreamReader(MyFilename)

livros = CType(reader.Deserialize(file), BooksCollections)

file.Close()

Classe Livro

<Serializable()> Public Class Book
    Implements IDisposable

Private _Title As String
    Private _Author As String
    Private _PublishedDate As Date
    Private _PageNumber As Integer
    Private _Cost As Double

Public Sub New()
    End Sub

Public Sub New(ByVal Title As String, ByVal Author As String)
        _Title = Title
        _Author = Author
    End Sub
    Public Property Title() As String
        Get
            Return _Title
        End Get
        Set(ByVal value As String)
            _Title = value
        End Set
    End Property

Public Property Author() As String
        Get
            Return _Author
        End Get
        Set(ByVal value As String)
            _Author = value
        End Set
    End Property

Public Property Cost() As Double
        Get
            Return _Cost
        End Get
        Set(ByVal value As Double)
            _Cost = value
        End Set
    End Property

Public Property PageNumber() As Integer
        Get
            Return _PageNumber
        End Get
        Set(ByVal value As Integer)
            _PageNumber = value
        End Set
    End Property

Public Property PublishedDate() As Date
        Get
            Return _PublishedDate
        End Get
        Set(ByVal value As Date)
            _PublishedDate = value
        End Set
    End Property

Private disposedValue As Boolean = False        ' To detect redundant calls

' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                ' TODO: free other state (managed objects).
            End If

' TODO: free your own state (unmanaged objects).
            ' TODO: set large fields to null.
        End If
        Me.disposedValue = True
    End Sub

#Region " IDisposable Support "
    ' This code added by Visual Basic to correctly implement the disposable pattern.
    Public Sub Dispose() Implements IDisposable.Dispose
        ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

Classe Livros

Public Class BooksCollections
    Inherits Collections.CollectionBase

Private _Nome As String

Default Public Property Item(ByVal index As Integer) As Book
        Get
            Return CType(List(index), Book)
        End Get
        Set(ByVal value As Book)
            List(index) = value
        End Set
    End Property

Public Property Nome() As String
        Get
            Return _Nome
        End Get
        Set(ByVal value As String)
            _Nome = value
        End Set
    End Property

Public Function Add(ByVal value As Book) As Integer
        Return List.Add(value)
        Return List.Count
    End Function 'Add

Public Function IndexOf(ByVal value As Book) As Integer
        Return List.IndexOf(value)
    End Function 'IndexOf

Public Sub Insert(ByVal index As Integer, ByVal value As Book)
        List.Insert(index, value)
    End Sub 'Insert

Public Sub Remove(ByVal value As Book)
        List.Remove(value)
    End Sub 'Remove

Public Function Contains(ByVal value As Book) As Boolean
        ' If value is not of type Int16, this will return false.
        Return List.Contains(value)
    End Function 'Contains

Protected Overrides Sub OnInsert(ByVal index As Integer, ByVal value As Object)
        ' Insert additional code to be run only when inserting values.
    End Sub 'OnInsert

Protected Overrides Sub OnRemove(ByVal index As Integer, ByVal value As Object)
        ' Insert additional code to be run only when removing values.
    End Sub 'OnRemove

Protected Overrides Sub OnSet(ByVal index As Integer, ByVal oldValue As Object, ByVal newValue As Object)
        ' Insert additional code to be run only when setting values.
    End Sub 'OnSet

Protected Overrides Sub OnValidate(ByVal value As Object)
        If Not GetType(Book).IsAssignableFrom(value.GetType()) Then
            Throw New ArgumentException("value must be of type Book.", "value")
        End If
    End Sub 'OnValidate

Public Sub New()

End Sub
    Public Sub New(ByVal Nome As String)
        _Nome = Nome
    End Sub
End Class