易语言进度条模块源码

系统结构:创建,设置进度,销毁,SetPixel,CreateCompatibleBitmap,CreateCompatibleDC,GetDC,DeleteDC,DeleteObject,SelectObject,SetBkMode,StretchBlt,GetWindowRect,ReleaseDC,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 设置进度
           |  |
           |  |------ 销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetPixel
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   StretchBlt
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   ReleaseDC
  ======窗口程序集1
           |  |
           |  |------ _按钮1_被单击

调用的DLL命令:

.DLL命令 SetPixel, 整数型, "gdi32", "SetPixel"
    .参数 hDC, 整数型
    .参数 X, 整数型
    .参数 Y, 整数型
    .参数 crColor, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, "gdi32", "CreateCompatibleBitmap"
    .参数 hDC, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型

.DLL命令 CreateCompatibleDC, 整数型, "gdi32", "CreateCompatibleDC"
    .参数 hDC, 整数型

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

.DLL命令 DeleteDC, 整数型, "gdi32", "DeleteDC"
    .参数 hDC, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject"
    .参数 hObject, 整数型

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

.DLL命令 SetBkMode, 整数型, "gdi32", "SetBkMode"
    .参数 hDC, 整数型
    .参数 nBkMode, 整数型

.DLL命令 StretchBlt, 整数型, "gdi32", "StretchBlt"
    .参数 hDC, 整数型
    .参数 X, 整数型
    .参数 Y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hSrcDC, 整数型
    .参数 xSrc, 整数型
    .参数 ySrc, 整数型
    .参数 nSrcWidth, 整数型
    .参数 nSrcHeight, 整数型
    .参数 dwRop, 整数型

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内　非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 想获得范围矩形的那个窗口的句柄
    .参数 lpRect, RECT, , RECT，屏幕坐标中随同窗口装载的矩形;  

.DLL命令 ReleaseDC, 整数型, "user32", "ReleaseDC", , 释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害）　执行成功为1，否则为0
    .参数 hwnd, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 hdc, 整数型, , 要释放的设备场景句柄;