111,126
社区成员
发帖
与我相关
我的任务
分享
Imports System
Imports System.Timers
Public Class Timer1
Private Shared aTimer As System.Timers.Timer
Public Shared Sub Main()
' Normally, the timer is declared at the class level,
' so that it stays in scope as long as it is needed.
' If the timer is declared in a long-running method,
' KeepAlive must be used to prevent the JIT compiler
' from allowing aggressive garbage collection to occur
' before the method ends. (See end of method.)
'Dim aTimer As System.Timers.Timer
' Create a timer with a ten second interval.
aTimer = New System.Timers.Timer(10000)
' Hook up the Elapsed event for the timer.
AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
' Set the Interval to 2 seconds (2000 milliseconds).
aTimer.Interval = 2000
aTimer.Enabled = True
Console.WriteLine("Press the Enter key to exit the program.")
Console.ReadLine()
' If the timer is declared in a long-running method, use
' KeepAlive to prevent garbage collection from occurring
' before the method ends.
'GC.KeepAlive(aTimer)
End Sub
' Specify what you want to happen when the Elapsed event is
' raised.
Private Shared Sub OnTimedEvent(source As Object, e As ElapsedEventArgs)
Console.WriteLine("The Elapsed event was raised at {0}", e.SignalTime)
End Sub
End Class
' This code example produces output similar to the following:
'
'Press the Enter key to exit the program.
'The Elapsed event was raised at 5/20/2007 8:42:27 PM
'The Elapsed event was raised at 5/20/2007 8:42:29 PM
'The Elapsed event was raised at 5/20/2007 8:42:31 PM
'...
System.Timers.Timer timer = new System.Timer.Time(times)