Timer 使用方法

 

   Timer 使用方法
   
   Dim i As Integer = 0

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Timer1.Enabled = True
      Timer1.Interval = 1000
      Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      i = i + 1

      If i < 60 Then
         Label1.Text = i.ToString & " second(s)"
      ElseIf (i Mod 60) = 0 Then
         Label1.Text = (i \ 60).ToString & " minute(s) "
      Else
         Label1.Text = (i \ 60).ToString & " minute(s) " & (i Mod 60).ToString & " second(s)"
      End If
   End Sub