易语言环形进度效果源码

系统结构:进度窗口,画弧形,GdipFillEllipseI,GdipFillPieI,GetDC,ReleaseDC,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 进度窗口
           |  |
           |  |------ 画弧形
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GdipFillEllipseI
           |  |
           |  |---[dll]------   GdipFillPieI
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC

调用的DLL命令:

.DLL命令 GdipFillEllipseI, 整数型, "gdiplus.dll", "GdipFillEllipseI"
    .参数 graphics, 整数型
    .参数 Brush, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 Width, 整数型
    .参数 Height, 整数型

.DLL命令 GdipFillPieI, 整数型, "gdiplus.dll", "GdipFillPieI"
    .参数 graphics, 整数型
    .参数 Brush, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 Width, 整数型
    .参数 Height, 整数型
    .参数 startAngle, 小数型
    .参数 sweepAngle, 小数型

.DLL命令 GetDC, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

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