VB.NET 计时器在第一次计时后停止工作

Question

我的代码中的计时器在第一次滴答后停止工作，我将它设置为在表单加载时每秒开始滴答：

Private Sub FormIdleTimeWaster_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        timerCPS.Interval = 1000
        timerCPS.Start()
End Sub

但在第一次滴答之后，它停止工作：

Private Sub TimerCPS_Tick(sender As Object, e As EventArgs) Handles timerCPS.Tick
        lblCPS.Text = CStr(CPS)
        lblTotalHW.Text = CStr(CPS + HWTotal)
    End Sub

所有其他引用timerCPS 的代码是

Me.timerCPS = New System.Windows.Forms.Timer(Me.components)

Friend WithEvents timerCPS As Timer

在我的代码中没有其他地方引用timerCPS，我不确定出了什么问题

Answer 1

我已经复制了问题中给出的代码，并且运行良好。它每秒都在滴答作响。

我已将您的代码修改为：

Public Class FormIdleTimeWaster

    Private CPS As Integer = 1

    Private Sub timerCPS_Tick(sender As Object, e As EventArgs) Handles timerCPS.Tick
        CPS += 1
        lblCPS.Text = CStr(CPS)
    End Sub

    Private Sub FormIdleTimeWaster_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        timerCPS.Interval = 1000
        timerCPS.Start()
    End Sub
End Class

我可以清楚地看到标签中的值每勾增加一。

timerCPS_Tick 不需要调用timerCPS.Start()。

如果您仍然有问题，那么您还没有显示其他代码。