VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在组件中使用服务器时钟
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8074, 日期:2003-08-29
    在编程过程中,你一定会经常使用到时间间隔操作以监视一个服务器组件或者检查一个数据库列表。.NET框架提供了实现这一方法的两种选择:基于服务器的时钟和Windows时钟。Windows时钟位于System.Windows.Forms中,并可以在Windows窗体程序中设计。


我们强烈推荐使用服务器时钟,因为它具有不同的使用体系,可以使用多种线程,相比于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比较大,则不执行这一过程。