VB.NET中Timer.Stop无法立即停止，求解决方案

问题分析 #

调用Timer1.Stop()或Timer1.Enabled = False会立即终止Timer的下一次Tick触发，但如果当前Tick事件正在执行，会跑完当前逻辑才会停止。另外你的Tick代码存在属性错误（Label的颜色属性应为ForeColor而非Color），可能导致异常干扰Timer的正常停止逻辑。

解决步骤 #

1. 修正Label颜色属性错误
   你的Tick代码中label1.Color是无效属性，VB.NET中Label的文本颜色需使用ForeColor，背景色用BackColor，修正后代码：

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       If time = 1 Then
           label1.ForeColor = Color.Gold
       ElseIf time = 2 Then
           label1.ForeColor = Color.White
           time = 0
       End If
       time = time + 1
   End Sub
   

2. 添加停止标志强制中断Tick逻辑
   声明全局布尔变量作为停止标志，在Tick事件开头检查，一旦触发停止信号就立即退出当前Tick执行：

   ' 全局变量，用于标记是否停止Timer
   Private isTimerStopped As Boolean = False
   
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       ' 检查停止标志，立即退出Tick逻辑
       If isTimerStopped Then
           Timer1.Stop()
           Exit Sub
       End If
   
       If time = 1 Then
           label1.ForeColor = Color.Gold
       ElseIf time = 2 Then
           label1.ForeColor = Color.White
           time = 0
       End If
       time = time + 1
   End Sub
   
   Private Sub btnStopICMP_Click(sender As Object, e As EventArgs) Handles btnStopICMP.Click
       isTimerStopped = True
       Timer1.Stop()
       Timer1.Enabled = False
   End Sub
   

3. 确认Timer类型与Interval设置

   • 确保使用的是System.Windows.Forms.Timer（WinForms专属Timer，在UI线程运行），而非System.Timers.Timer或System.Threading.Timer，后两者的停止逻辑不同。
   • 检查Timer的Interval属性，确认是否设置为1000毫秒（1秒），若设为5000毫秒（5秒），会导致停止后当前Tick仍需执行完剩余时长的误解。

内容的提问来源于stack exchange，提问作者Tom Welling