易语言超级列表框内加入进度条源码

系统结构:WinProc,设置进度条,插入表项,删除表项,发送消息_,设置窗口信息,设置父窗口,呼叫窗口函数地址_,窗口顶置,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ WinProc
           |  |
           |  |------ 设置进度条
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 插入表项
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 删除表项
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   发送消息_
           |  |
           |  |---[dll]------   设置窗口信息
           |  |
           |  |---[dll]------   设置父窗口
           |  |
           |  |---[dll]------   呼叫窗口函数地址_
           |  |
           |  |---[dll]------   窗口顶置

调用的DLL命令:

.DLL命令 发送消息_, 整数型, "user32.dll", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 窗口区域, 传址

.DLL命令 设置窗口信息, 整数型, "user32.dll", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 设置父窗口, 整数型, , "SetParent"
    .参数 d, 整数型
    .参数 ds, 整数型

.DLL命令 呼叫窗口函数地址_, 整数型, "user32.dll", "CallWindowProcA"
    .参数 前一窗口函数地址, 整数型
    .参数 窗口句柄, 整数型
    .参数 消息值, 整数型
    .参数 附加参数1, 整数型
    .参数 附加参数2, 整数型

.DLL命令 窗口顶置, 整数型, , "BringWindowToTop"
    .参数 hwnd, 整数型