易语言渐变进度条源码

系统结构:TRIVERTEX到字节集,GradientFill,GetDC,ReleaseDC,GetLastError,FormatMessage,

======窗口程序集1
           |  |
           |  |------ _画板1_绘画
           |  |
           |  |------ TRIVERTEX到字节集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _时钟2_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GradientFill
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   FormatMessage

调用的DLL命令:

.DLL命令 GradientFill, 逻辑型, "Msimg32.dll", "GradientFill"
    .参数 hDC, 整数型
    .参数 pVertex, 字节集
    .参数 dwNumVertex, 整数型
    .参数 pMesh, GRADIENT_RECT
    .参数 dwNumMesh, 整数型
    .参数 dwMode, 整数型

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

.DLL命令 ReleaseDC, 逻辑型, , "ReleaseDC"
    .参数 hwnd, 整数型
    .参数 hDC, 整数型

.DLL命令 GetLastError, 整数型, , "GetLastError"

.DLL命令 FormatMessage, 整数型, , "FormatMessageA"
    .参数 标志, 整数型
    .参数 源, 整数型
    .参数 消息号, 整数型
    .参数 语言, 整数型
    .参数 缓冲, 文本型
    .参数 缓冲大小, 整数型
    .参数 插入, 整数型