Question

我不明白如何在vb.net中使用计时器我想制作一个简单的程序，当我按下按钮时，计时器启动，标签每秒更改一次，直到60秒过去。我想我应该把它放在按钮事件中

Timer1.Start()

但我不确定该怎么做。我该怎么做呢？

Answer 1

你需要定义Tick事件处理程序，它将在时间滴答时执行操作（它将勾选每个间隔 - 以毫秒为单位 - 在INTERVAL属性中定义）：

启动计时器：

Timer1.Start()

定义INTERVAL属性（以下示例中为2秒）：

Timer1.Interval = 2000

定义事件处理程序

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    <action>
    IF <condition> THEN Timer1.Stop()
End Sub

如果您愿意，可以使用Timer1.Stop()

停止计时器

Answer 2

好Timer1.Start()启动计时器，但您需要声明计时器滴答的频率。

Timer1.Interval = 1000

将使计时器每1000毫秒或1秒钟滴答一次。您希望为计时器执行的操作位于Timer_Tick事件处理程序中。

为了允许标签递增，您可以使用全局变量：

Public Class MainBox

Dim counter As Int

Private Sub Form_Load(sender As System.Object, e As System.EventArgs)
    Timer1.Interval = 1000
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) HandlesTimer1.Tick<action>
    counter = counter + 1
    label1.Text = counter
End Sub

Answer 3

不要忘记启用定时器并设置间隔（1000应该足够好，但你可以保留默认值100）。在Tick处理程序内部放置代码以刷新标签。在启动计时器时，请记住开始时间（Date.Now）。然后，每次打勾：

lbl.Text = Date.Now.Subtract(startDate).TotalSeconds.ToString("N0")

在vb中使用计时器

3 个答案: