易语言按钮滑动效果源码

系统结构:线程启动,优化池,SetWaitableTimer,CloseHandle,MsgWaitForMultipleObjects,CreateWaitableTimerA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _图片框2_鼠标左键被按下
           |  |
           |  |------ 线程启动
           |  |
           |  |------ 优化池
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWaitableTimer
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   CreateWaitableTimerA

调用的DLL命令:

.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer"
    .参数 hTimer, 整数型
    .参数 pDueTime, LARGE_INTEGER
    .参数 lPeriod, 整数型
    .参数 pfnCompletionRoutine, 整数型
    .参数 lpArgToCompletionRoutine, 整数型
    .参数 fResume, 逻辑型

.DLL命令 CloseHandle, 逻辑型, , "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 fWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 CreateWaitableTimerA, 整数型, , "CreateWaitableTimerA"
    .参数 lpTimerAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 lpTimerName, 整数型