シリアライズ、クラス、オブジェクトの設定の保存

クラス、オブジェクトの設定の保存して復元のテスト

やってみたいこと、目的は

Pixtack紫陽花での文字の描画で文字の設定を保存しておいて

次回にアプリを起動した時に設定を反映するようにしたい

終了時の設定を復元したい

起動するたびにフォント名や色、大きさ、影の有無とかを指定するのが面倒

一個だけの設定なら前回の

gogowaten.hatenablog.com

範囲選択の操作改善したPixtack紫陽花2.5.39.119 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ

これでできるけど

フォントの色赤とフォントの色青とか両方の保存はできなさそう

調べていてシリアライズってのを使うとできそうってことになった

そのシリアライズの中でもバイナリ形式で保存が良さそう

テストしてみた

数値と文字列と色の値を持つ適当なクラスを作成、テストなので後処理とかは省いている

'↓<Serializable>をつけるとこの直下に書いてあるクラスはシリアライズ(バイナリ版)できることになる
<Serializable>
Public Class TestClassテスト用クラス
    Public Number数値 As Integer
    Public Message文字列 As String
    Public _col色 As Color
    Private caアルファ As Integer
    Public cr赤 As Integer
    Public cg緑, cb青 As Integer
    Public Property col As Color
        Get
            Dim c As Color = Color.FromArgb(caアルファ, cr赤, cg緑, cb青)
            Return c
        End Get
        Set(value As Color)
            _col色 = value
            caアルファ = value.A
            cr赤 = value.R
            cg緑 = value.G
            cb青 = value.B

        End Set
    End Property
End Class

’ここから下は普通のForm1クラス
Imports System.Configuration
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim obj As New TestClassテスト用クラス()
        obj.Message文字列 = "testdesu"
        obj.Number数値 = 123
        obj.col = Color.FromArgb(128, 3, 88, 23)

        'シリアライズ(XML版)、こっちはColorが保存されない、Privateな変数も保存されないで無視される
        Dim fileName As String = "F:\png\sample.xml"
        Dim serializer As New System.Xml.Serialization.XmlSerializer(GetType(TestClassテスト用クラス))
        Dim sw As New System.IO.StreamWriter(fileName, False, New System.Text.UTF8Encoding(False))
        serializer.Serialize(sw, obj)
        sw.Close()


        'シリアライズ(バイナリ版)
        Dim fs As New FileStream("F:\png\data.bin", FileMode.Create)
        Dim bf As New BinaryFormatter
        bf.Serialize(fs, obj)
        fs.Close()

        'デシリアライズ（バイナリ版）
        Dim obj2 As New TestClassテスト用クラス()
        Dim fs2 As New FileStream("F:\png\data.bin", FileMode.Open)
        Dim bf2 As New BinaryFormatter
        obj2 = bf2.Deserialize(fs2)
        fs2.Close()

    End Sub
End Class

画像だとこう

f:id:gogowaten:20191017115802p:plain

f:id:gogowaten:20191017115815p:plain

デザイン画面はボタンを一個追加しただけ

ボタンを押すとシリアライズ開始

F:\png\sample.xmlにxmlのファイルが保存される

F:\png\data.binにバイナリのファイルが保存される

結果

xmlでは今回の目的には合わなかったけど

保存したファイルを開いてみてみる

<?xml version="1.0" encoding="utf-8"?>

<Message>testdesu</Message>

<col />

</SampleClass>

こうなっている

記録されていない項目がある

色のColorとcaアルファが記録されていない

caアルファは他の「Number数値]と同じinteger型の変数(フィールド？)なんだけど

Privateで宣言しているから記録されないみたい

Color型の変数も無視される

ってことでxmlにシリアライズするのは目的には合わない

次はバイナリ形式にシリアライズ、こっちは期待通り

メモ帳で開くと

 g繧ｷ繝ｪ繧｢繝ｩ繧､繧ｺ繝・す繝ｪ繧｢繝ｩ繧､繧ｺ繝・せ繝・ Version=1.0.0.0, Culture=neutral, PublicKeyToken=null QSystem.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a O繧ｷ繝ｪ繧｢繝ｩ繧､繧ｺ繝・す繝ｪ繧｢繝ｩ繧､繧ｺ繝・せ繝・TestClass繝・せ繝育畑繧ｯ繝ｩ繧ｹ Number謨ｰ蛟､Message譁・ｭ怜・_col濶ｲca繧｢繝ｫ繝輔ぃcr襍､cg邱・cb髱・ System.Drawing.Color { testdesu・System.Drawing.Color namevalue

knownColorstate

X€ € X

こうだけどデシリアライズで復元されたところを

ブレークポイントに指定しておいてからアプリを実行して