Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO
<Serializable()> Public Class Class2
Implements IDisposable
Private Favorites As ArrayList
Private HomePage As String
Private EmilAddress As String
Private SearchSettings As String
<NonSerialized()> Private Const FILE_NAME As String = "Settings.bin"
Public Sub New()
Dim Str As Stream = File.OpenRead(FILE_NAME)
Dim des As New BinaryFormatter
With CType(des.Deserialize(Str), Class2)
Me.EmilAddress = .EmilAddress
Me.Favorites = .Favorites
Me.HomePage = .HomePage
Me.SearchSettings = .SearchSettings
End With
Str.Close()
End Sub
Public Sub Dispose() Implements System.IDisposable.Dispose
Dim Str As Stream = File.OpenWrite(FILE_NAME)
Dim Ser As New BinaryFormatter
Ser.Serialize(Str, Me)
Str.Close()
End Sub
End Class