WinForm中如何实现按住按钮时持续调用指定子程序的功能？

最优实现方案是用System.Windows.Forms.Timer配合按钮的鼠标事件组合实现，优势是无需引入多线程逻辑、不会出现跨线程访问UI控件的异常，符合WinForm的原生交互逻辑。

实现步骤 #

• 第一步：在窗体中添加Timer控件，设置Interval属性为你需要的两次DoSomething调用的间隔时长（单位为毫秒，比如设为100代表每100毫秒调用一次），初始Enabled属性设为False
• 第二步：绑定按钮的三个鼠标事件：
  • MouseDown事件：按下按钮时启动Timer
  • MouseUp事件：松开按钮时停止Timer
  • MouseLeave事件：按住状态下鼠标移出按钮区域时也停止Timer，符合常规交互逻辑
• 第三步：在Timer的Tick事件中调用DoSomething()即可

VB.NET 代码示例 #

' 窗体类成员，也可以直接拖拽Timer控件到窗体设计器生成
Private WithEvents executionTimer As New Timer() With {.Interval = 100, .Enabled = False}

' 按钮MouseDown事件
Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
    ' 只响应左键按下
    If e.Button = MouseButtons.Left Then
        executionTimer.Start()
        ' 可选：按下时立即执行一次，不用等第一个间隔
        DoSomething()
    End If
End Sub

' 按钮MouseUp事件
Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
    If e.Button = MouseButtons.Left Then
        executionTimer.Stop()
    End If
End Sub

' 按钮MouseLeave事件
Private Sub Button1_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave
    executionTimer.Stop()
End Sub

' Timer Tick事件
Private Sub ExecutionTimer_Tick(sender As Object, e As EventArgs) Handles executionTimer.Tick
    DoSomething()
End Sub

' 你的业务子程序
Private Sub DoSomething()
    ' 原有业务逻辑
End Sub

特殊场景适配 #

如果你的DoSomething是耗时较长的操作，为了避免卡住UI线程，可以改用Task配合CancellationTokenSource实现：

• MouseDown时初始化CancellationTokenSource，启动后台Task循环调用DoSomething，每次循环判断取消标记
• MouseUp和MouseLeave时调用CancellationTokenSource的Cancel方法终止循环

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