我们强烈推荐使用服务器时钟,因为它具有不同的使用体系,可以使用多种线程,相比于Windows时钟它更加精确。
要建立一个服务器时钟,可以先建立一个新的时钟实例,然后设置Interval和Enabled属性。Interval属性设置了时钟要运行的毫秒数。
Dim sysTimer as New System.Timers.Timer()
sysTimer.Interval = 5000
sysTimer.Enabled = True
接着,添加一个处理事件:
AddHandlersysTimer.Elapsed, AddressOfMe.timerElapsed
Sub timerElapsed(ByVal sender As System.Object, _
ByVal
e As System.Timers.ElapsedEventArgs)
'Do processing here
End Sub
请注意,由于时钟可以在多个线程里执行,Stop函数被调用之后Elapsed事件才被停止。实现过程如下:当调用Stop函数时,存储此时的时间,然后把时间与ElapsedEventArgs的SignalTime属性相比较,如果SignalTime比较大,则不执行这一过程。