Как да запазите фоново изображение на форми чрез My.Settings.Save Visual Basic - vb.net, background-image, my.settings

Опитвам се да направя операционна система в Visual Basic (разбира се програма) и тя се нуждае от персонализация.

Искам потребителят да може да избира от aизберете група изображения, съхранявани в Resources на проекта, и искам това изображение да бъде запазено, така че следващия път, когато влезете в софтуера, формата има същото изображение, което са избрали.

Допълнителна информация:

Изборът на изображение е на отделна форма. Използвайки:

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

Формата за главен работен плот използва „Фоновото изображение“, за да бъде избрано изображението.

Отговори:

употреба My.Settings за запазване на потребителските настройки.

Това е кодът, с който го демонстрирах. Имам форма с ComboBox1 и PictureBox1. С този код можете да продължите избора си на изображение.

Влезте в свойствата на проекта и кликнете върху опцията Настройки вляво. Създайте настройка, наречена BackgroundImageName от тип String. Можете да изберете дали обхватът да е запазен на потребител или на приложение.

След това в свойствата на проекта отидете на Resources и добавете две изображения, наречени "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, преди последното затваряне.