关闭表单时如何保存跟踪栏的最后一个位置/值?

Question

我有一个Form1，它使用AppActivate将一行文本发送到另一个打开的应用程序。

此行文本是从下拉列表和文本框创建的，并使用发送密钥和System.Threading.Thread.Sleep(label1.text)发送到其他应用程序。

我在第二个表单上有一个跟踪栏，它连接到label1以控制睡眠值的时间量。我将跟踪栏值设置为 100，以便用户具有默认值。当计时器不够长时，用户可以转到第二个窗体并增加滑块值。

我的问题是，因为我每次打开第二个表单时都将跟踪栏值设置为 100，所以它会重置为默认的 100 设置。如何在跟踪栏上设置默认的 100 设置，但是一旦更改了该值，下次打开第二个表单时它就会出现？

我还希望在应用程序完全关闭(form 1关闭(时返回到 100。

Answer 1

我不确切了解每个表单具有哪些控件或它的工作是什么，但听起来您可以通过构造函数将当前跟踪栏值从一个表单传递到另一个表单：

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Set the default value
TrackBar.Value = 100
End Sub
Private Sub Button1_Clicked(sender As Object, e As EventArgs) Handles Button1.Click
'Pass the current value of trackbar into Form2 constructor
Dim form2 As New Form2(TrackBar.Value)
form2.Show()
End Sub
End Class
Public Class Form2
'You can this wherever you need it now
Dim _TrackBarValue As Integer
Public Sub New(ByVal TrackBarValue As Integer)
_TrackBarValue = TrackBarValue
End Sub
End Class

显然，您需要使用正确的窗体来布局控件。