易语言超级按钮透明源码

系统结构:窗口_透明_去色,实现玻璃效果,DwmIsCompositionEnabled,窗口_置信息_DLL,窗口_置透明度_DLL,窗口_取信息_DLL,DLL命令1,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 窗口_透明_去色
           |  |
           |  |------ _超级按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   实现玻璃效果
           |  |
           |  |---[dll]------   DwmIsCompositionEnabled
           |  |
           |  |---[dll]------   窗口_置信息_DLL
           |  |
           |  |---[dll]------   窗口_置透明度_DLL
           |  |
           |  |---[dll]------   窗口_取信息_DLL
           |  |
           |  |---[dll]------   DLL命令1

调用的DLL命令:

.DLL命令 实现玻璃效果, , "dwmapi.dll", "DwmExtendFrameIntoClientArea", 公开, 实现玻璃效果的API函数
    .参数 HWND, 整数型, , 窗口句柄
    .参数 Margins, Margins, 传址, 区域结构

.DLL命令 DwmIsCompositionEnabled, 逻辑型, "dwmapi.dll", "DwmIsCompositionEnabled", 公开, 判断系统的磨砂玻璃合成效果是否已经开启
    .参数 isEnabled, 逻辑型, 传址

.DLL命令 窗口_置信息_DLL, 整数型, , "SetWindowLongA", , 值
    .参数 hwnd
    .参数 nIndex
    .参数 dwNewLong

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

.DLL命令 窗口_取信息_DLL, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd
    .参数 nIndex, , ,  

.DLL命令 DLL命令1