シリアライズ、クラス、オブジェクトの複数の設定の保存をPixtack紫陽花に

昨日の

gogowaten.hatenablog.com

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

これを使って

gogowaten.hatenablog.com

Pixtack紫陽花2.7.58.145_文字の描画で書式設定を登録してリストから選択できるようにした、設定を保存できるようにした ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ

これでPixtack紫陽花にもうまく取り込めたので

内容をメモ

昨日の書き方よりもかなり短くできた

これであっているのかわからないけど動いている

作ったクラスは二つなのは変わらないけど

設定を記録するクラス

<Serializable> Class FontSetting
    Public Property ForeColor1 As Color 'この一行だけでも値は保存されるみたい、逆にGetとSetを書いて_foreColor1変数を書かないと値が保存されない
    Public Property ForeColor2 As Color 'フォントカラー2
    Public Property ItemName As String 'リストに表示するテキスト
    Public Property Yokogaki As Boolean '横書きならTrue、縦書ならFalse
    Public Property Gradation As Boolean 'グラデーションの有無
    Public Property GammaC As Boolean 'ガンマ補正の有無
    Public Property Size As Integer 'フォントサイズ
    Public Property FontName As String 'フォントネーム
End Class

昨日はそれぞれのプロパティにGetとSetを書いていたけど今回は書いていない

ただ単に宣言をしただけになっているけど普通に動いている

これでいいの？

もう一つは設定をまとめてリストに追加するクラス

<Serializable> Class FontSettingList '<serializable>がシリアライズできますよ宣言
    Inherits List(Of FontSetting) 'ジェネリック型？リストを継承

    'コンボボックスの項目用リストを返す
    Public Function GetNameList() As String()
        Dim lc As Integer = Me.Count - 1
        Dim nl(lc) As String
        For i As Integer = 0 To lc
            nl(i) = Me.Item(i).ItemName
        Next
        Return nl

    End Function
End Class

これも昨日のmyFontListクラスに比べると大幅に短くなった

最初はmyFontListと同じように書いていたんだけど

リストに追加するとか追加された設定を読みだして返すとかの動作は

最初からVisualBasicに用意されているList(of T)とかいうコレクションクラス？の

ジェネリックリスト？クラス？オブジェクト？にある動作と同じだから

これを継承(Inherits)したクラスで作れば追加するとかの動作を書かなくてもいいんじゃないか？って思いついて試したらこれでも期待通りに動いたのでこんなに短くなった

もしかしたら

Form1の中でList(Of FontSetting)の変数を作ってそれをシリアライズすれば

このクラス自体必要ないのかもしれないけどその方法がわかっていないので

このままでいいや

詳細設定ボタンで表示されるウィンドウのForm6

設定をバイナリファイルにして保存するメソッド

Private Sub SettingSave設定ファイル保存()
   'Dim filename As String = "F:\png\fontsetting.bin"
   '       Dispose、Closeが確実に呼び出されるようにする: .NET Tips: C#, VB.NET
   'http://dobon.net/vb/dotnet/beginner/calldispose.html

   'ファイルに保存
    Using fst As New FileStream(filename, FileMode.Create) 'Usingは確実に終了処理をしてくれる、FileStreamをCloseしてくれる
        Dim bin As New BinaryFormatter
        bin.Serialize(fst, FontSLフォントの設定リスト)
    End Using

End Sub

Using

これは初めて使った

途中でエラーとかがでもUsingで宣言した変数なら確実に終了処理をしてくれる

そういうのもあるのかっ

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Public Class Form6
    Private FontSLフォントの設定リスト As New FontSettingList
    Private myForm3 As Form3 = New Form3 'テスト機能のウィンドウ
    Private fileName As String '設定ファイル名

    Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim fD As String = My.Application.Info.DirectoryPath 'アプリの実行ファイルのある場所
        Dim fN As String = "FontSetting.bin" '設定ファイル名
        fileName = fD & "\" & fN '設定ファイルのフルパス作成
        myForm3 = Me.Owner 'myForm3(テスト機能)をForm6の所有者にする、これがないとmyForm3に設定を書き込んでも無視される

        If File.Exists(fileName) = False Then Exit Sub '設定ファイルがなければ読み込みをキャンセル

        '設定ファイルの読み込み
        Using fst As New FileStream(fileName, FileMode.Open)
            Dim bin As New BinaryFormatter()
            FontSLフォントの設定リスト = bin.Deserialize(fst)
        End Using
        
        Dim nl() As String = FontSLフォントの設定リスト.GetNameList()
        Me.ComboBoxFontSetting.Items.AddRange(nl)

    End Sub

Private Sub ComboBoxFontSetting_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxFontSetting.SelectedIndexChanged
    Dim int As Integer = Me.ComboBoxFontSetting.SelectedIndex
    Dim fs As FontSetting = FontSLフォントの設定リスト.Item(int)
   '設定をForm3に書き込み
    Form1.IsFontSettingNow = True '設定を書き込み中は見本を再描画しないフラグ
    With myForm3
        .RadioButtonStringH.Checked = fs.Yokogaki
        .ButtonFontColor.ForeColor = fs.ForeColor1
        .ButtonFontColor2.ForeColor = fs.ForeColor2
        .CheckBoxTextGradation.Checked = fs.Gradation
        .CheckBoxStringGamma.Checked = fs.GammaC
        .ComboBoxAllFonts.Text = fs.FontName
        .NumericUpDownFontSize.Value = fs.Size
    End With

    Form1.IsFontSettingNow = False '見本の再描画フラグ解除
    Call Form1.TextSample() '見本の再描画
End Sub

Private Sub ButtonAddFontSetting登録_Click(sender As Object, e As EventArgs) Handles ButtonAddFontSetting登録.Click
    Dim fs As New FontSetting
    With fs
        .ForeColor1 = myForm3.ButtonFontColor.ForeColor
        .ForeColor2 = myForm3.ButtonFontColor2.ForeColor
        .ItemName = myForm3.NumericUpDownFontSize.Value & "_" & myForm3.ComboBoxAllFonts.Text
        .FontName = myForm3.ComboBoxAllFonts.Text
        .Yokogaki = myForm3.RadioButtonStringH.Checked
        .Gradation = myForm3.CheckBoxTextGradation.Checked
        .GammaC = myForm3.CheckBoxStringGamma.Checked
        .Size = myForm3.NumericUpDownFontSize.Value

    End With

   'リストに追加
    FontSLフォントの設定リスト.Add(fs)
    Call SettingSave設定ファイル保存()
    Call Comboboxコンボボックスの項目更新(True)
End Sub

このあたりの設定の指定が無視される

よくわかっていない

Form3からForm6の呼び出しかた

Private Sub ButtonFontSetting詳細設定_Click(sender As Object, e As EventArgs) Handles ButtonFontSetting詳細設定.Click
   'Form6がすでに開かれていたら何もしない
    For Each f As Form In Me.OwnedForms
       'For Each f As Form In Application.OpenForms
        If f.Name = "Form6" Then
            Exit Sub
        End If
    Next

    Me.Cursor = Cursors.WaitCursor
    Dim f6 As New Form6
    f6.Show(Me)
    f6.ShowInTaskbar = False 'タスクバーに表示しない
    Me.Cursor = Cursors.Default
End Sub