超级列表框的表项加入进度条

系统结构:创建进度条,设置进度条,画出进度条,子程序1,取环境,ExcludeClipRect,ExtSelectClipRgn,取窗口环境,FrameRect,创造固定刷子,填充,放弃环境,TextOutA,置文本颜色,CreateRectRgnIndirect,SelectClipRgn,SetBkMode,DrawTextA,CreateFontA,SelectObject,删除目标,CallWindowProcA,RtlMoveMemory,置窗口长度,置文本排列,

======绘制进度条
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建进度条
           |  |
           |  |------ 设置进度条
           |  |
           |  |------ 画出进度条
           |  |
           |  |------ 子程序1
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取环境
           |  |
           |  |---[dll]------   ExcludeClipRect
           |  |
           |  |---[dll]------   ExtSelectClipRgn
           |  |
           |  |---[dll]------   取窗口环境
           |  |
           |  |---[dll]------   FrameRect
           |  |
           |  |---[dll]------   创造固定刷子
           |  |
           |  |---[dll]------   填充
           |  |
           |  |---[dll]------   放弃环境
           |  |
           |  |---[dll]------   TextOutA
           |  |
           |  |---[dll]------   置文本颜色
           |  |
           |  |---[dll]------   CreateRectRgnIndirect
           |  |
           |  |---[dll]------   SelectClipRgn
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   DrawTextA
           |  |
           |  |---[dll]------   CreateFontA
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   删除目标
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   置窗口长度
           |  |
           |  |---[dll]------   置文本排列

调用的DLL命令:

.DLL命令 取环境, 整数型, , "GetDC", , GetDC
    .参数 句柄, 整数型, , hwnd

.DLL命令 ExcludeClipRect, , , "ExcludeClipRect"
    .参数 hdc, 整数型
    .参数 x1, 整数型
    .参数 y1, 整数型
    .参数 x2, 整数型
    .参数 y2, 整数型

.DLL命令 ExtSelectClipRgn, , , "ExtSelectClipRgn"
    .参数 hdc, 整数型
    .参数 hRgn, 整数型
    .参数 fnMode, 整数型

.DLL命令 取窗口环境, 整数型, , "GetWindowDC", , GetWindowDC
    .参数 句柄, 整数型, , hwnd

.DLL命令 FrameRect, , , "FrameRect"
    .参数 hdc, 整数型
    .参数 lpRect, 边框
    .参数 hBrush, 整数型

.DLL命令 创造固定刷子, 整数型, , "CreateSolidBrush", , CreateSolidBrush
    .参数 颜色, 整数型, , crColor

.DLL命令 填充, , , "FillRect", , FillRect
    .参数 hdc, 整数型
    .参数 lpRect, 边框
    .参数 hBrush, 整数型

.DLL命令 放弃环境, , , "ReleaseDC", , ReleaseDC
    .参数 句柄, 整数型, , hwnd
    .参数 环境句柄, 整数型, , hdc

.DLL命令 TextOutA, 整数型, , "TextOutA"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 lpString, 文本型
    .参数 nCount, 整数型

.DLL命令 置文本颜色, , , "SetTextColor", , SetTextColor
    .参数 hdc, 整数型
    .参数 颜色, 整数型, , crColor

.DLL命令 CreateRectRgnIndirect, 整数型, , "CreateRectRgnIndirect"
    .参数 lpRect, 边框

.DLL命令 SelectClipRgn, , , "SelectClipRgn"
    .参数 hdc, 整数型
    .参数 hRgn, 整数型

.DLL命令 SetBkMode, , , "SetBkMode"
    .参数 hdc, 整数型
    .参数 nBkMode, 整数型, , 1.透明

.DLL命令 DrawTextA, , , "DrawTextA"
    .参数 hdc, 整数型
    .参数 lpStr, 文本型
    .参数 nCount, 整数型
    .参数 lpRect, 边框
    .参数 wFormat, 整数型

.DLL命令 CreateFontA, 整数型, , "CreateFontA", , 创建逻辑字体，执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 nHeight, 整数型, , 所创建字体的字符高度
    .参数 nWidth, 整数型, , 字体的字符平均宽度
    .参数 nEscapement, 整数型, , 字符输出方向与水平向右的方向所成角度，以0.1度为单位
    .参数 nOrientation, 整数型, , 字符与基线的角度，以0.1度为单位
    .参数 nWeight, 整数型, , 字符颜色的深浅度
    .参数 bItalic, 字节型, , 斜体属性标志(0:正常字体，非0:斜体)
    .参数 bUnderline, 字节型, , 下划线属性标志(0:无下划线，非0:有下划线)
    .参数 cStrikeOut, 字节型, , 删除线属性标志(0:无删除线，非0:有删除线) 
    .参数 nCharSet, 字节型, , 字符集标识0:ANSI字符集，1:系统缺省字符集
    .参数 nOutPrecision, 字节型, , 输出精度
    .参数 nClipPrecision, 字节型, , 剪切精度
    .参数 nQuality, 字节型, , 输出品质
    .参数 nPitchAndFamily, 字节型, , 字符间距
    .参数 lpszFacename, 文本型, , 现有系统TrueType字体名称

.DLL命令 SelectObject, 整数型, , "SelectObject"
    .参数 hdc, 整数型
    .参数 hObject, 整数型

.DLL命令 删除目标, 整数型, , "DeleteObject", , DeleteObject
    .参数 目标, 整数型, , hObject

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 RtlMoveMemory, , , "RtlMoveMemory"
    .参数 lpDest, 整数型
    .参数 lpSource, 整数型
    .参数 cBytes, 整数型

.DLL命令 置窗口长度, 子程序指针, , "SetWindowLongA", , SetWindowLongA
    .参数 窗口句柄, 整数型, , hwnd
    .参数 索引, 整数型, , nIndex
    .参数 长度, 子程序指针, , dwNewLong

.DLL命令 置文本排列, , , "SetTextAlign", , SetTextAlign
    .参数 hdc, 整数型
    .参数 标记, 整数型, , wFlags