systemset.vb

来自「The Management Information System of Lib」· VB 代码 · 共 29 行

Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Public Class systemSet
    Private myarray As ArrayList
    Public Sub Write()
        Dim formatter As New BinaryFormatter
        Dim stream As New FileStream("MyFile.bin", FileMode.Create, _
                                      FileAccess.Write, FileShare.None)
        formatter.Serialize(stream, myarray)
        stream.Close()
    End Sub

    Public Function ReadArray() As ArrayList
        Dim formatter As New BinaryFormatter
        Dim stream As New FileStream("MyFile.bin", FileMode.Open, _
                                      FileAccess.Read, FileShare.Read)
        myarray = formatter.Deserialize(stream)
        stream.Close()
        Return myarray
    End Function

    Public Sub New(ByVal str As ArrayList)
        Me.myarray = str.Clone
    End Sub
    Public Sub New()

    End Sub
End Class