如何使用 My.Settings.Save Visual Basic 保存表单背景图像

Question

我正在尝试用 Visual Basic 制作一个操作系统（当然是基于程序的），它需要个性化。

我希望用户能够从一组选定的图像中进行选择，这些图像存储在项目的资源中，并且我希望保存该图像，以便他们下次登录软件时，表单保存了他们选择的相同图像。

额外信息：

图像选择在单独的表单上。使用：

If ComboBox1.Text = "Beach Fade" Then
    PictureBox1.BackgroundImage = My.Resources.beach_fade
End If

主桌面窗体使用“背景图像”来选择图像。

Answer 1

使用 My.Settings 保存用户设置。

这是我用来演示的代码。我有一个带有 ComboBox1 和 PictureBox1 的表单。使用此代码，您可以保留图像选择。

进入您的项目属性并单击左侧的设置选项。创建一个名为 BackgroundImageName 的字符串类型的设置。您可以选择是按用户还是按应用程序保存范围。

然后在项目属性中转到资源并添加两个名为“beach_fade”和“mountain_fade”的图像。你知道该怎么做

然后粘贴这段代码

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ComboBox1.Items.Add("Beach Fade")
        Me.ComboBox1.Items.Add("Mountain Fade")
        Me.ComboBox1.Text = My.Settings.BackgroundImageName
        setBackgroundImage()
    End Sub

    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        My.Settings.BackgroundImageName = Me.ComboBox1.Text
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        setBackgroundImage()
    End Sub

    Private Sub setBackgroundImage()
        If ComboBox1.Text = "Beach Fade" Then
            PictureBox1.BackgroundImage = My.Resources.beach_fade
        ElseIf ComboBox1.Text = "Mountain Fade" Then
            PictureBox1.BackgroundImage = My.Resources.mountain_fade
        End If
    End Sub

End Class

应用程序每次都会以上次关闭前在 ComboBox 中选择的图像启动。