VB.Net公共变量莫名重置：WinForms自动保存功能异常求助

问题背景 #

在VS2019开发Windows Forms应用时，登录窗体（frmLogin）有一个公共布尔变量autosave控制自动保存状态，订单窗体通过按钮切换该变量，并使用System.Timers.Timer实现定时自动保存。但自动保存执行一次后，autosave会莫名重置为False，导致后续自动保存无法触发。

核心原因 #

1. 跨线程访问变量的线程安全问题：System.Timers.Timer的Elapsed事件在非UI线程触发，直接访问UI线程创建的frmLogin的公共变量autosave时，会触发.NET的窗体线程安全机制，导致变量值被意外覆盖或读取到错误值。
2. 窗体实例引用错误：直接通过类名frmLogin访问变量，可能会意外创建新的窗体实例，新实例的autosave默认值为False，后续读取的就是这个错误的实例值。

解决办法 #

方案1：改用System.Windows.Forms.Timer（推荐） #

System.Windows.Forms.Timer是WinForms专属定时器，Tick事件在UI线程触发，不存在跨线程访问问题：

' 订单窗体中替换为Forms定时器
Private WithEvents autoSaveTimer As New System.Windows.Forms.Timer()

Sub schedulenextautosave()
    If frmLogin.autosave = True Then
        autoSaveTimer.Interval = 5000
        autoSaveTimer.Start()
        Debug.Print(frmLogin.autosave)
    End If
End Sub

' 定时器Tick事件处理
Private Sub autoSaveTimer_Tick(sender As Object, e As EventArgs) Handles autoSaveTimer.Tick
    autoSaveTimer.Stop()
    ' 执行保存逻辑
    MsgBox("Saved")
    Debug.Print(frmLogin.autosave)
    If frmLogin.autosave = True Then
        schedulenextautosave()
    End If
End Sub

Private Sub mtsbAutoSave_Click(sender As Object, e As EventArgs) Handles mtsbAutoSave.Click
    If frmLogin.autosave = True Then
        frmLogin.autosave = False
        mtsbAutoSave.Checked = False
        autoSaveTimer.Stop() ' 立即停止定时器
    Else
        frmLogin.autosave = True
        mtsbAutoSave.Checked = True
        schedulenextautosave()
    End If
End Sub

方案2：保留System.Timers.Timer，修正跨线程访问 #

如果必须使用System.Timers.Timer，需通过Invoke切换到UI线程访问变量：

Sub autosave()
    ' 切换到UI线程执行操作
    Me.Invoke(Sub()
                  ' 执行保存逻辑
                  MsgBox("Saved")
                  Debug.Print(frmLogin.autosave)
                  If frmLogin.autosave = True Then
                      schedulenextautosave()
                  End If
              End Sub)
End Sub

额外优化：传递窗体实例避免默认实例问题 #

打开订单窗体时，将登录窗体的实际实例传递进去，避免通过类名访问默认实例：

' 登录窗体中打开订单窗体的代码
Dim orderForm As New OrderForm(Me)
orderForm.Show()

' 订单窗体中
Private _loginForm As LoginForm
Public Sub New(loginForm As LoginForm)
    InitializeComponent()
    _loginForm = loginForm
End Sub
' 后续所有访问frmLogin.autosave的地方替换为_loginForm.autosave

内容的提问来源于stack exchange，提问作者Luke Krell