易语言使窗口透明并显示控件源码

部分代码：

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 ret, 整数型

ret ＝ 取得窗口信息_ (取窗口句柄 (), -20)
ret ＝ ret ＋ 524288
设置窗口信息_ (取窗口句柄 (), -20, ret)
设置窗口透明度 (取窗口句柄 (), #红色, 100, 3)  ' 全透明指定区域颜色,可控其它区域透明度
设置窗口透明度 (取窗口句柄 (), 0, 100, 2)  ' 透明整个窗口
设置窗口透明度 (取窗口句柄 (), #红色, 100, 1)  ' 透明指定区域颜色,可控其它区域透明度
' 　LWA_ALPHA = 0x2 　　LWA_COLORKEY=0x1    LWA_ALPHA + LWA_COLORKEY。这样crKey的地方将变为全透明，而其它地方根据bAlpha参数确定透明度。
' 当取值为LWA_ALPHA时，crKey参数无效，bAlpha参数有效；
' 当取值为LWA_COLORKEY时，窗体中的所有颜色为crKey的地方将变为透明，bAlpha参数无效。

.子程序 _按钮1_被单击

标签1.横向对齐方式 ＝ 1

.子程序 _透明标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

销毁 ()

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

@常飞