如何用单个Timer替代5个Timer简化VB.NET定时器Tick事件代码？

完全可以！你的思路非常靠谱——用单个Timer配合分支逻辑（比如Select Case）就能把这5个重复的Timer事件合并，大幅减少冗余代码。不过先提个关键细节：你现有代码里的Exit For放在方法调用前面，会直接跳出循环，导致RndTitaniumA1()这些方法根本不会执行，这个逻辑bug得先修正，不然简化后的代码还是达不到预期效果。

下面是具体的实现步骤和修改后的代码：

第一步：准备模块级标记变量 #

在窗体类的顶部添加一个变量，用来标记当前要执行的是原哪个Timer对应的逻辑：

Private currentTimerAction As Integer ' 1对应原Timer1，2对应原Timer2，以此类推

第二步：重写Timer1的Tick事件 #

把原来5个Timer的逻辑合并到这里，用Select Case区分不同操作分支，同时修正Exit For的错误位置：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Dim strx As String
    Dim stry As String = TxtBoxIntDrawsY.Text ' 提取重复操作，避免多次获取文本
    Dim matchFound As Boolean = False

    ' 先完成循环匹配逻辑，修正原代码中Exit For的错误顺序
    For i As Integer = 1 To 10
        strx = TextBox1.Lines(i)
        If stry.Contains(strx) Then
            matchFound = True
            Exit For ' 找到匹配后跳出循环
        End If
    Next

    ' 根据匹配结果和当前模式执行对应操作
    If matchFound Then
        RndTitaniumA1()
    Else
        Select Case currentTimerAction
            Case 1
                If TextBox4.Text = "1" Then
                    BttRnd.PerformClick()
                Else
                    RndTitaniumA2()
                End If
            Case 2
                If TextBox4.Text = "2" Then
                    BttRnd.PerformClick()
                Else
                    RndTitaniumA3()
                End If
            Case 3
                If TextBox4.Text = "3" Then
                    BttRnd.PerformClick()
                Else
                    RndTitaniumA4()
                End If
            Case 4
                If TextBox4.Text = "4" Then
                    BttRnd.PerformClick()
                Else
                    RndTitaniumA5()
                End If
            Case 5
                If TextBox4.Text = "5" Then
                    BttRnd.PerformClick()
                Else
                    MsgBox("")
                End If
        End Select
    End If

    ' 执行完成后停止Timer
    Timer1.Stop()
    Timer1.Enabled = False
End Sub

第三步：替换原启动Timer的代码 #

原来你调用Timer2.Start()、Timer3.Start()的地方，改成设置标记变量后启动Timer1：

• 原Timer2.Start() → 改为 currentTimerAction = 2 : Timer1.Start()
• 原Timer3.Start() → 改为 currentTimerAction = 3 : Timer1.Start()
• 以此类推，对应1-5的数值即可

额外优化建议 #

你还可以把TextBox4.Text的判断逻辑进一步简化，因为currentTimerAction和判断的数值完全对应，比如：

Else
    If TextBox4.Text = currentTimerAction.ToString() Then
        BttRnd.PerformClick()
    Else
        ' 根据当前模式直接调用对应方法
        Select Case currentTimerAction
            Case 1 : RndTitaniumA2()
            Case 2 : RndTitaniumA3()
            Case 3 : RndTitaniumA4()
            Case 4 : RndTitaniumA5()
            Case 5 : MsgBox("")
        End Select
    End If
End If

这样能进一步减少重复代码，让逻辑更简洁清晰。

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