VB.Net使用System.Threading.Timer仍致窗口卡顿，操作是否有误？

你的代码本身无错误，但场景不匹配 #

你贴出的是控制台程序的System.Threading.Timer用法，这段代码本身不会出现卡顿——控制台程序不存在UI线程重绘的问题。但你提到窗口卡顿，说明你实际是在WinForms/WPF这类UI项目里套用了类似逻辑，核心问题出在UI线程的访问规则上。

为什么UI会卡顿？ #

System.Threading.Timer的回调是在.NET线程池的后台线程执行的，如果你在TimerTask里直接操作UI控件（比如更新标签、进度条），就会触发跨线程访问UI的问题：

• UI控件只能由创建它们的UI线程操作，后台线程直接操作会导致线程安全冲突，表现为界面卡顿、无响应甚至抛出异常。

正确的解决方式 #

根据你使用的UI框架，选择对应方案：

1. WinForms项目 #

优先使用System.Windows.Forms.Timer（它的Tick事件直接在UI线程执行，无需手动切换线程）；如果一定要用System.Threading.Timer，则需要在回调里通过Control.Invoke切换到UI线程：

' 假设在Form类中的代码
Private timer As Threading.Timer

Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    timer = New Threading.Timer(AddressOf TimerTask, Nothing, 0, 1000)
End Sub

Private Sub TimerTask(state As Object)
    ' 切换到UI线程更新控件
    Me.Invoke(Sub()
                  Label1.Text = "Timer task executed at: " & DateTime.Now
              End Sub)
End Sub

2. WPF项目 #

优先使用DispatcherTimer（默认在UI线程执行）；如果坚持用System.Threading.Timer，则通过Dispatcher.Invoke切换线程：

' 假设在Window类中的代码
Private timer As Threading.Timer

Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    timer = New Threading.Timer(AddressOf TimerTask, Nothing, 0, 1000)
End Sub

Private Sub TimerTask(state As Object)
    ' 切换到UI线程更新控件
    Me.Dispatcher.Invoke(Sub()
                             Label1.Content = "Timer task executed at: " & DateTime.Now
                         End Sub)
End Sub

额外提示 #

• 如果定时器任务包含耗时逻辑，不要放在UI线程执行：可以在后台线程完成耗时操作后，再切换到UI线程更新结果。
• System.Threading.Timer更适合无UI交互的后台定时任务，UI场景优先使用对应框架的专用Timer，操作更简单且无需手动处理线程切换。

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