易语言动态加载提示模块源码

系统结构:创建加载框,显示加载,隐藏加载,recycle,setImage,getTop,getWidth,getHeight,isMember,GetClientRect,SetTimer,KillTimer,GetWindowRect,GetDC,

======集_loading
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 创建加载框
           |  |
           |  |------ 显示加载
           |  |
           |  |------ 隐藏加载
           |  |
           |  |------ recycle
           |  |
           |  |------ setImage
           |  |
           |  |------ getTop
           |  |
           |  |------ getWidth
           |  |
           |  |------ getHeight
           |  |
           |  |------ isMember
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetClientRect
           |  |
           |  |---[dll]------   SetTimer
           |  |
           |  |---[dll]------   KillTimer
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   GetDC
  ======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击

调用的DLL命令:

.DLL命令 GetClientRect, 整数型, , "GetClientRect"
    .参数 hWnd, 整数型
    .参数 RECT, PtRECT

.DLL命令 SetTimer, 整数型, "user32.dll", "SetTimer", , ,
    .参数 hwnd, 整数型
    .参数 nIDEvent, 整数型
    .参数 uElapse, 整数型
    .参数 lpTimerFunc, 整数型

.DLL命令 KillTimer, 整数型, "user32.dll", "KillTimer", , ,
    .参数 hwnd, 整数型, , hwnd
    .参数 nIDEvent, 整数型, , nIDEvent

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect", , ,
    .参数 hwnd, 整数型
    .参数 Rect, PtRECT

.DLL命令 GetDC, 整数型, "user32", "GetDC"
    .参数 hwnd, 整数型