VB.NET项目中字体与颜色设置保存功能失效问题求助

问题排查与关键修正点 #

1. 确认My.Settings配置正确

   • 打开项目「属性」→「设置」选项卡，确保：
     • Text_Color 类型为 System.Drawing.Color，范围设为「User」
     • Text_Font 类型为 System.Drawing.Font，范围设为「User」
   • 若设置项不存在，手动添加对应类型的User范围设置项（Application范围为只读，无法保存修改）。

2. 必须在窗体加载时主动加载保存的设置
   现有代码中的设置加载方法未被自动触发，需在窗体启动时手动调用。

3. 修正代码逻辑

   • 调整方法命名使其语义更清晰
   • 确保窗体加载时执行设置加载，关闭时保存最新配置

完整修正代码 #

' 窗体加载时加载保存的字体和颜色设置
Private Sub MyLibrary_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    LoadSavedSettings()
End Sub

' 窗体关闭时保存当前字体和颜色设置
Private Sub MyLibrary_FormClosed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.FormClosed
    My.Settings.Text_Color = TxtBook.ForeColor
    My.Settings.Text_Font = TxtBook.Font
    My.Settings.Save()
End Sub

' 将保存的设置应用到所有文本框
Private Sub LoadSavedSettings()
    ' 应用字体设置
    TxtBook.Font = My.Settings.Text_Font
    TxtAuthor.Font = My.Settings.Text_Font
    TxtPublisher.Font = My.Settings.Text_Font
    TxtPublish.Font = My.Settings.Text_Font
    txtPage.Font = My.Settings.Text_Font
    TxtNote.Font = My.Settings.Text_Font

    ' 应用颜色设置
    TxtBook.ForeColor = My.Settings.Text_Color
    TxtAuthor.ForeColor = My.Settings.Text_Color
    TxtPublisher.ForeColor = My.Settings.Text_Color
    TxtPublish.ForeColor = My.Settings.Text_Color
    txtPage.ForeColor = My.Settings.Text_Color
    TxtNote.ForeColor = My.Settings.Text_Color
End Sub

验证步骤 #

修改字体/颜色后关闭程序，重新启动项目，检查所有文本框是否保留之前的设置。若仍不生效，可清理项目的bin和obj文件夹后重新编译。

内容的提问来源于stack exchange，提问作者Khaled Ali