オブジェクトをファイルにシリアライズし、

Question

のリストを私のvb.netアプリで読み返して、オブジェクトをファイルにシリアライズします。私はこれを何度も何度もやります。 私のアプリを閉じる 私のアプリを起動して、私が書いたオブジェクトのリストを読み込もうとしましたが、動作しません。

これは私のモデルである：

<Serializable()> 
Public Class test 
    Public FontColor As Color = Color.Black 
    Public Contrast As Int32 = 0 
    Public Text As String = "" 
End Class 

これは私が私のファイルに書き込む方法です：

Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter 
Dim stream As New FileStream(Application.StartupPath + "\testme.txt", FileMode.Append, FileAccess.Write, FileShare.None) 
Dim TextValues As New test 
TextValues.Contrast = 10 
TextValues.FontColor = Color.AliceBlue 
TextValues.Text = "hello andy" 

formatter.Serialize(stream, TextValues) 
stream.Close() 

NB、はい、私は 'を使用' キーワードを使用する必要があります知っている:)

これはどのように私がそれを読み返すかです：

Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter 
Dim stream As New FileStream(Application.StartupPath + "\testme.txt", FileMode.Open, FileAccess.Read, FileShare.Read) 

REM THIS WORKS OK BUT FOR ONLY 1 OBJECT ****************************** 
Dim TextValues = CType(formatter.Deserialize(stream), test) 
REM ********************************************************************* 

REM ***THIS JUST ERRORS ************************************************* 
Dim TextValues2 = CType(formatter.Deserialize(stream), List(Of test)) 
REM ********************************************************************* 

stream.Close() 

Answer 1

List(Of TextValue)を作成し、複数のTextValueオブジェクトを作成して読み込みたい場合は、シリアル化/逆シリアル化することができます。