如何在鼠标单击和关闭菜单后保存更改？

Question

很抱歉，如果这是一个非常基本的问题，我无法通过 Google 找到答案。

Private Sub Button2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseClick
    If Label1.Text = "OFF" Then
        Label1.Text = "ON"
    Else
        Label1.Text = "OFF"
    End If

End Sub

如何保存 "ON" 或 "OFF" 的更改，以便当我用 Me.Close() 关闭并用 Me.Show() 再次打开它时，它还在吗？如果我想添加颜色或其他也会改变的东西，这样我也可以保存它们。我还想参考其他表格中的那些信息（ON 或 OFF 文本）。

编辑：

我似乎找不到保存设置的方法，尽管我尝试了不同的方法。我在设置页面中有 Access Modifier: Public 然后一个设置行：Paalla, String, User, OFF 在字段中.当我关闭表单并从另一个表单再次打开它时，更改消失了。

Private Sub Button2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseClick
    If My.Settings.Paalla = "OFF" Then
        Button2.BackColor = Color.Orange
        Label1.Text = "ON"
        My.Settings.Paalla = "ON"
        My.Settings.Save()
    Else
        Button2.BackColor = Color.Gainsboro
        Label1.Text = "OFF"
        My.Settings.Paalla = "OFF"
        My.Settings.Save()
    End If

End Sub

Answer 1

点击按钮，在属性window中将应用程序设置（文本属性）设置为一个新变量（因为你只是使用关闭和打开，我将示例设置为是一个布尔值）

然后在鼠标点击事件事件中设置变量

Label Text是应用程序设置变量的名称

Private Sub Button2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseClick
If Label1.Text = "OFF" Then
    Label1.Text = "ON"
    My.Settings.LabelText = True
    My.Settings.Save()
Else
    Label1.Text = "OFF"
    My.Settings.LabelText= False
    My.Settings.Save()
End If

End Sub

然后你需要在加载按钮文本时加载这些设置

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
If My.Settings.LabelText = True then
    Label1.Text = "ON"
Else: Label1.Text="OFF"
End If
End Sub

如何在鼠标单击和关闭菜单后保存更改？

How to save a change after MouseClick and closing menu?

vb.net