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

昨日の

gogowaten.hatenablog.com

シリアライズ、クラス、オブジェクトの設定の保存 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ

続きで今度は二つ(複数)の設定を保存して保存したものから読み込んで設定に反映できるかのテスト

この方法であっているのかは不明だけど目的は達成されたのでメモ

動作は登録ボタンでコンボボックスに項目を登録

コンボボックスの項目を選択すると設定してある色で登録ボタンの背景色を変更

設定保存ボタンで設定をシリアライズしてバイナリ形式でファイルに保存

設定読み込みボタンでファイルを読み込んでデシリアライズしてコンボボックスに項目を登録

クリアボタンはコンボボックスの項目を消去

登録→コンボボックスの項目を変更で色が変化するか確認→設定保存→

アプリ終了→アプリ実行→設定読み込み→

コンボボックスの項目に登録されているか確認→

コンボボックスの項目を変更で色が変化するか確認

二つのクラスを作った

設定を記録するクラス、名前はmyFontにした

複数の設定を一つのリストにするクラス、名前はmyFontListにした

'設定を記録するクラス
<Serializable> Class myFont
    Private _fColor As Color
    Public Property fColor As Color '色
        Get
            Return _fColor
        End Get
        Set(value As Color)
            _fColor = value
        End Set
    End Property

    Private _fSize As Integer
    Public Property fSize As Integer '数値
        Get
            Return _fSize
        End Get
        Set(value As Integer)
            _fSize = value
        End Set
    End Property

    Private _fName As String
    Public Property fName As String '文字列
        Get
            Return _fName
        End Get
        Set(value As String)
            _fName = value
        End Set
    End Property
End Class

このmyFontクラスで記録できるのはColor(色)とInteger(整数値)とString(文字列)の三種類

このクラスはプロパティを3つ作っただけなのでこれであっていると思う

myFontとか名前を付けたけどフォントと関係なくなったｗ

次

'複数の設定をリストにするクラス
<Serializable> Class myFontList
    Private fList As New List(Of myFont) 'myFont型のリスト
    Private fName As New List(Of String) 'コンボボックスの項目用リスト

    Public Sub Add(value As myFont) 'myFontをリストに追加する
        fList.Add(value)
        fName.Add(value.fName)
    End Sub

    Public Function Name2Color(str As String) As Color '名前を受け取って色を返す
        Dim i As Integer = fName.IndexOf(str)
        'Dim col As Color = fList.Item(i).fColor
        Return fList.Item(i).fColor
    End Function

    Public Function Index2Color(i As Integer) As Color 'インデックスを受け取って色を返す
        Return fList.Item(i).fColor
    End Function

    Public Function NameList() As String() 'コンボボックスの項目用リストを返す
        Dim n(fName.Count - 1) As String
        For i As Integer = 0 To UBound(n)
            n(i) = fName(i)
        Next
        Return n

    End Function
End Class

このmyFontListクラスはメソッド(関数？)ばかり、クラスを作成する自体慣れていなくてその中でメソッドを使うのは初めて

fListの変数に受け取った設定をどんどん追加していく

なのでこれをシリアライズして保存すれば追加されたぶんだけいくつでも設定が保存できるってことになるはず

Addメソッドで受け取った設定(myFont)をfListに追加していく

myFontとmyFontList二つ作ったのはひとつに纏める方法がわからなかったから

そもそもひとつにまとめたほうがいいのかどうなのかもわかんない

最後にいつものForm1

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Public Class Form1
    Private myfl As New myFontList

    Private Sub Button登録_Click(sender As Object, e As EventArgs) Handles Button登録.Click
        '一個目の設定
        Dim myf As New myFont
        myf.fColor = Color.Red '色
        myf.fSize = 30 '数値
        myf.fName = "赤文字" '文字列
        myfl.Add(myf) 'リストに登録

        '二個目の設定
        myf = New myFont
        myf.fColor = Color.FromArgb(233, 145, 23, 123)
        myf.fSize = 23
        myf.fName = "適当な色"
        myfl.Add(myf) 'リストに登録

        ComboBox1.Items.AddRange(myfl.NameList) 'コンボボックスに項目を登録
    End Sub

    'シリアライズしてバイナリ形式で保存、バイナリ形式シリアライズ？
    Private Sub Button保存_Click(sender As Object, e As EventArgs) Handles Button設定保存.Click
        Dim fs As New FileStream("F:\png\data.bin", FileMode.Create)
        Dim bf As New BinaryFormatter
        bf.Serialize(fs, myfl)
        fs.Close()

    End Sub

    '保存した設定ファイルを読み込んでデシリアライズして読み込み
    Private Sub Button読み込み_Click(sender As Object, e As EventArgs) Handles Button設定読み込み.Click
        Dim fs As New FileStream("F:\png\data.bin", FileMode.Open)
        Dim bf As New BinaryFormatter
        myfl = DirectCast(bf.Deserialize(fs), myFontList) '変数myflにデシリアライズしたものを入れる
        fs.Close()
        Me.ComboBox1.Items.AddRange(myfl.NameList) '読み込んだ設定から文字列を取り出してコンボボックスに項目としてを登録

    End Sub
    'コンボボックスの項目をすべて削除

    Private Sub Buttonクリア_Click_1(sender As Object, e As EventArgs) Handles Buttonクリア.Click
        Me.ComboBox1.Items.Clear()
        Me.ComboBox1.Text = ""

    End Sub

    'コンボボックスの項目を変更した時、登録ボタンの背景色を変更
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer = Me.ComboBox1.SelectedIndex
        Dim s As String = Me.ComboBox1.SelectedItem
        Dim col As Color = myfl.Name2Color(s)
        'Dim col As Color = myfl.Index2Color(i)
        Me.Button登録.BackColor = col

    End Sub
End Class