可替代VB自带的Timer控件的Timer类

最新推荐文章于 2024-06-26 16:32:55 发布

迈克揉索芙特

最新推荐文章于 2024-06-26 16:32:55 发布

阅读量5.1k

点赞数

分类专栏： Visual Basic 6.0 文章标签： timer vb function 多线程 user exe

本文链接：https://blog.csdn.net/Modest/article/details/1346175

版权

本文介绍了一个VB类模块，该模块实现了一个Timer类，可以替代VB自带的Timer控件，尤其适用于无窗体项目。通过使用这个Timer类，可以在ActiveX EXE中模拟多线程，避免控制权死锁，提高用户体验。文章提供了一个标准模块和类模块的代码示例，以及如何使用此类进行事件触发的方法。

摘要由CSDN通过智能技术生成

        (声明：魏滔序原创，转贴请注明出处。)
        用这个类可以替代VB自带的Timer控件，这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权，用Timer的好处是避免控制权死锁，这样也就模拟出了多线程(实际上是多进程)，能给用户更好的体验。代码如下：
        想直接使用的请到这里下载：http://www.chenoe.com/developer/library/timer.dll

标准模块(mTimer):
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Public TimerColl As New VBA.Collection

Public Sub TimeProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
    Dim Timer As Timer, lpTimer As Long
    lpTimer = TimerColl("ID:" & idEvent)
    CopyMemory Timer, lpTimer, 4&
    Timer.PulseTimer
    CopyMemory Timer, 0&, 4&
E