易语言仿Flash淡入淡出效果源码

系统结构:AlphaBlend,释放设备场景_,取设备场景_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _淡入淡出
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   AlphaBlend
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   取设备场景_

调用的DLL命令:

.DLL命令 AlphaBlend, 整数型, "msimg32.dll", "AlphaBlend"
    .参数 hdcDest
    .参数 nXoriginDest
    .参数 nYOriginDest
    .参数 nWidthDest
    .参数 hHeghtdest
    .参数 hdcSrc
    .参数 nXOriginSrc
    .参数 nYOriginSrc
    .参数 nWidthSrc
    .参数 nHeightSrc
    .参数 blendFunction

.DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC", , ReleaseDC
    .参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , hdc，要释放的设备场景句柄

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