如何让事件每x秒发生一次?VB.NET

Question

如何创建使事件回调每x秒在VB.NET?

Answer 1

我如何让它每10秒加一个到我的计数器上?

Public Class Form1
    Private Counter As Integer = 0
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = Counter.ToString
        Me.Timer1.Interval = TimeSpan.FromSeconds(10).TotalMilliseconds
        Me.Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Counter = Counter + 1
        Label1.Text = Counter.ToString
    End Sub
End Class