易语言动画物体界面源码

系统结构:设置透明,取窗口风格,设置窗口,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _动画框1_鼠标位置被移动
           |  |
           |  |------ _动画框1_物体左键被按下
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _动画框1_鼠标左键被按下
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _图片框1_鼠标左键被按下
           |  |
           |  |------ _图片框2_鼠标左键被按下
           |  |
           |  |------ _图片框3_鼠标左键被按下
           |  |
           |  |------ _图片框4_鼠标左键被按下
           |  |
           |  |------ _图片框5_鼠标左键被按下
           |  |
           |  |------ _图片框6_鼠标左键被按下
           |  |
           |  |------ _图片框7_鼠标左键被按下
           |  |
           |  |------ _透明标签1_鼠标左键被按下
           |  |
           |  |------ _透明标签7_鼠标左键被按下
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   设置透明
           |  |
           |  |---[dll]------   取窗口风格
           |  |
           |  |---[dll]------   设置窗口

调用的DLL命令:

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

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

.DLL命令 设置窗口, 整数型, , "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nindex, 整数型
    .参数 dwnewlong, 整数型