易语言透明叠加图片源码

系统结构:画板_透明叠加图像,RGB_Alpha,CreatePen,CreateSolidBrush,FillRect,GetDC,LineTo,MoveToEx,ReleaseDC,DeleteObject,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _图片框3_鼠标左键被放开
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 画板_透明叠加图像
           |  |
           |  |------ RGB_Alpha
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreatePen
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   LineTo
           |  |
           |  |---[dll]------   MoveToEx
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   DeleteObject

调用的DLL命令:

.DLL命令 CreatePen, 整数型, "gdi32", "CreatePen", , 用指定的样式、宽度和颜色创建一个画笔　如函数执行成功，就返回指向新画笔的一个句柄；否则返回零
    .参数 nPenStyle, 整数型, , 指定画笔样式，可以是下述常数之一;PS_SOLID：画笔画出的是实线;PS_DASH：画笔画出的是虚线（nWidth必须是1）;PS_DOT：画笔画出的是点线（nWidth必须是1）;PS_DASHDOT：画笔画出的是点划线（nWidth必须是1）;PS_DASHDOTDOT：画笔画出的是点-点-划线（nWidth必须是1）;PS_NULL：画笔不能画图;PS_INSIDEFRAME：画笔在由椭圆、矩形、圆角矩形、饼图以及弦等生成的封闭对象框中画图。如指定的准确RGB颜色不存在，就进行抖动处理
    .参数 nWidth, 整数型, , 以逻辑单位表示的画笔的宽度
    .参数 crColor, 整数型, , 画笔的RGB颜色;  

.DLL命令 CreateSolidBrush, 整数型, "gdi32", "CreateSolidBrush", , 用纯色创建一个刷子　如执行成功，返回新刷子的一个句柄；否则返回零
    .参数 crColor, 整数型, , 数字的RGB彩色;  

.DLL命令 FillRect, 整数型, "user32", "FillRect", , 用指定的刷子填充一个矩形　非零表示成功，零表示失败。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 lpRect, RECT, , RECT，对填充区域进行描述的一个矩形，采用逻辑坐标
    .参数 hBrush, 整数型, , 欲使用的刷子的句柄;  

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

.DLL命令 LineTo, 整数型, "gdi32", "LineTo", , 用当前画笔画一条线，从当前位置连到一个指定的点。这个函数调用完毕，当前位置变成x,y点　非零表示成功，零表示失败
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 x, 整数型, , 线段终点位置，采用逻辑坐标表示。这个点不会实际画出来；它不属于线段的一部分;  
    .参数 y, 整数型, , 同上;

.DLL命令 MoveToEx, 整数型, "gdi32", "MoveToEx", , 为指定的设备场景指定一个新的当前画笔位置。前一个位置保存在lpPoint中　非零表示成功，零表示失败
    .参数 hdc, 整数型, , 指向一个设备场景的句柄
    .参数 x, 整数型, , 采用逻辑坐标表示的新画笔位置
    .参数 y, 整数型, , 同上
    .参数 lpPoint, POINTAPI, , POINTAPI，用于保存前一个画笔位置。可以为NULL（将参数改为ByVal As 以传递一个空参数）;  

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

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放　非零表示成功，零表示失败
    .参数 hObject, 整数型, , 一个GDI对象的句柄;