VB单类模块Timer源码,可异步执行演示.rar

一个可控的带异步锁的 Timer 类，必须置于有窗口程序中使用，究其原因还是系统的问，系统限制 Timer 是由消息循环实现的。使用方法和 vb 的Timer控件一样，只是增加了一个 AsynExecute 属性,当设置此属性 = true 的时候, Timer 是以异步的方式运行的, 比如,第 1 次timer事件代码未运行完,第2次就开始了,那么第1次事件代码将暂停,第 3 次.... 直到timer被用户停止,则依次从54321的顺序把前几次timer代码依次运行完。 　　注: 和vb的timer控件在编译后的表现一样，将代码编译后运行才会有效果。