易语言进度条按钮源码

系统结构:getdc,CreateCompatibleDC,CreateCompatibleBitmapEx,SelectObject,CreatePen,MoveTo,LineTo,DeleteObject,ReleaseDC,BitBlt,deletedc,

======窗口程序集1
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   getdc
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateCompatibleBitmapEx
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   CreatePen
           |  |
           |  |---[dll]------   MoveTo
           |  |
           |  |---[dll]------   LineTo
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   deletedc

调用的DLL命令:

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

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

.DLL命令 CreateCompatibleBitmapEx, 整数型, "gdi32.dll", "CreateCompatibleBitmap"
    .参数 hdc, 整数型
    .参数 nwidth, 整数型
    .参数 nheight, 整数型

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

.DLL命令 CreatePen, 整数型, "gdi32.dll", "CreatePen"
    .参数 npenstyle, 整数型
    .参数 nwidth, 整数型
    .参数 crcolor, 整数型

.DLL命令 MoveTo, 整数型, "gdi32.dll", "MoveToEx"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 lpPoint, 整数型

.DLL命令 LineTo, 整数型, "gdi32.dll", "LineTo"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型

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

.DLL命令 ReleaseDC, 整数型, "user32.dll", "ReleaseDC"
    .参数 hwnd, 整数型
    .参数 hdc, 整数型

.DLL命令 BitBlt, 整数型, "gdi32.dll", "BitBlt"
    .参数 hdestdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nwidth, 整数型
    .参数 nheight, 整数型
    .参数 hsrcdc, 整数型
    .参数 xsrc, 整数型
    .参数 ysrc, 整数型
    .参数 dwrop, 整数型

.DLL命令 deletedc, 整数型, "gdi32.dll", "DeleteDC"
    .参数 hdc, 整数型