易语言仿迅雷7特效源码

系统结构:单击,单击2,改变,改变2,窗口消息处理,GDI绘制,RGB到ARGB,回调窗口消息,CreateRectRgn,RoundRect,CreateRoundRectRgn,Dll设定窗口区域,置窗口风格,设置透明度,取窗口风格,设置窗口,发送窗口消息,BeginPaint,EndPaint,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 单击
           |  |
           |  |------ 单击2
           |  |
           |  |------ _动画时钟_周期事件
           |  |
           |  |------ 改变
           |  |
           |  |------ 改变2
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 窗口消息处理
           |  |
           |  |------ GDI绘制
           |  |
           |  |------ _图形按钮_最小化_被单击
           |  |
           |  |------ _图形按钮_最大化_被单击
           |  |
           |  |------ _图形按钮_关闭_被单击
           |  |
           |  |------ __启动窗口_鼠标左键被按下
           |  |
           |  |------ _标签_窗口大小_鼠标左键被按下
           |  |
           |  |------ _Yes_鼠标左键被按下
           |  |
           |  |------ _Exit_鼠标左键被按下
           |  |
           |  |------ RGB到ARGB
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   回调窗口消息
           |  |
           |  |---[dll]------   CreateRectRgn
           |  |
           |  |---[dll]------   RoundRect
           |  |
           |  |---[dll]------   CreateRoundRectRgn
           |  |
           |  |---[dll]------   Dll设定窗口区域
           |  |
           |  |---[dll]------   置窗口风格
           |  |
           |  |---[dll]------   设置透明度
           |  |
           |  |---[dll]------   取窗口风格
           |  |
           |  |---[dll]------   设置窗口
           |  |
           |  |---[dll]------   发送窗口消息
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint

调用的DLL命令:

.DLL命令 回调窗口消息, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 CreateRectRgn, 整数型, "gdi32", "CreateRectRgn", 公开, 创建一个由点X1，Y1和X2，Y2描述的矩形区域  执行成功为区域句柄，失败则为零
    .参数 左上横坐标, 整数型, , 矩形左上角X，Y坐标
    .参数 左上纵坐标, 整数型, , 同上
    .参数 右下横坐标, 整数型, , 矩形右下角X，Y坐标;
    .参数 右下纵坐标, 整数型, , 同上;

.DLL命令 RoundRect, 整数型, "gdi32", "RoundRect", 公开, 用当前选定的画笔画一个圆角矩形，并用当前选定的刷子在其中填充。X3和Y3定义了用于生成圆角的椭圆；非零表示成功，零表示失败。
    .参数 设备场景句柄, 整数型, , hdc，用于绘图的设备场景
    .参数 启始横坐标, 整数型, , X1，对矩形左上角位置进行说明的X，Y坐标
    .参数 启始纵坐标, 整数型, , Y1，
    .参数 结束横坐标, 整数型, , X2，对矩形右下角位置进行说明的X，Y坐标
    .参数 结束纵坐标, 整数型, , Y2，
    .参数 椭圆宽度, 整数型, , X3，用于生成圆角效果的一个椭圆的宽度。取值范围从零（表示不加圆角），一直到矩形的宽度（全圆）

.DLL命令 CreateRoundRectRgn, 整数型, "gdi32", "CreateRoundRectRgn", 公开, 创建一个圆角矩形，该矩形由X1，Y1-X2，Y2确定，并由X3，Y3确定的椭圆描述圆角弧度  执行成功则为区域句柄，失败则为0
    .参数 左上横坐标, 整数型, , 矩形左上角的X，Y坐标
    .参数 左上纵坐标, 整数型, , 同上
    .参数 右下横坐标, 整数型, , 矩形右下角的X，Y坐标
    .参数 右下纵坐标, 整数型, , 同上
    .参数 圆角椭圆的宽, 整数型, , 圆角椭圆的宽。其范围从0（没有圆角）到矩形宽（全圆）
    .参数 圆角椭圆的高, 整数型, , 圆角椭圆的高。其范围从0（没有圆角）到矩形高（全圆）;

.DLL命令 Dll设定窗口区域, 整数型, "User32", "SetWindowRgn"
    .参数 hWnd, 整数型, , 将被设定窗口区域的某一窗口的柄。
    .参数 hRgn, 整数型, , 窗口区域的句柄。 函数将窗户的窗户区域设定为这一个区域。
    .参数 bRedraw, 逻辑型, , 叙述系统是否在设定窗户区域之后重划窗口。 如果 bRedraw 是真实的，系统这么做; 另外，它不。

.DLL命令 置窗口风格, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 设置透明度, 整数型, , "SetLayeredWindowAttributes"
    .参数 hwnd, 整数型
    .参数 crkey, 整数型
    .参数 alpha, 字节型
    .参数 dwflags, 整数型

.DLL命令 取窗口风格, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型, ,  

.DLL命令 设置窗口, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 发送窗口消息, , , "SendMessageA"
    .参数 hWnd
    .参数 Msg
    .参数 wParam
    .参数 lParam

.DLL命令 BeginPaint, 整数型, "user32", "BeginPaint", , 准备一个画图窗　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 EndPaint, 整数型, "user32", "EndPaint", , 在指定窗口中标记图画结尾标志　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT