如何使易语言制作的窗口背景透明

相关API函数：
GetWindowLong：获得有关指定窗口的信息；
SetWindowLong：改变指定窗口的属性；
SetLayeredWindowAttributes：设置分层窗口透明度。
DLL命令表：
1.
.版本
2
.DLL命令
GetWindowLong,
整数型,
"user32.dll",
"GetWindowLongA"
.参数
hwnd,
整数型
.参数
nlndex,
整数型
2.
.版本
2
.DLL命令
SetWindowLong,
整数型,
,
"SetWindowLongA"
.参数
hwnd,
整数型
.参数
nIndex,
整数型
.参数
dwNewLong,
整数型
3.
.版本
2
.DLL命令
SetLayeredWindowAttributes,
逻辑型,
,
"SetLayeredWindowAttributes"
.参数
hwnd,
整数型
.参数
crKey,
整数型
.参数
bAlpha,
字节型
.参数
dwFlags,
整数型
SetLayeredWindowAttributes参数简介：
hwnd：窗口句柄；
crKey：需要透明的颜色值；
bAlpha：透明度，取值范围0~255，0表示完全透明，255表示完全不透明；
dwFlags：透明方式。
其中，参数dwFlags可取以下值：
LWA_ALPHA：参数crKey（颜色值）无效，参数bAlpha（透明度）有效；
LWA_COLORKEY：窗体中所有颜色为crKey的地方完全透明，参数bAlpha（透明度）无效；
LWA_ALPHA|LWA_COLORKEY：窗体中所有颜色为crKey的地方完全透明，其他地方根据参数bAlpha确定透明度。
易语言十进制中，#LWA_ALPHA=2，#LWA_COLORKEY=1，位或
(#LWA_ALPHA,
#LWA_COLORKEY)=3
透明方式一：窗口底色完全透明，控件完全不透明。源码如下。
.版本
2
.子程序
__启动窗口_创建完毕
.局部变量
rtn,
整数型
rtn
＝
GetWindowLong
(取窗口句柄
(),
-20)
SetWindowLong
(取窗口句柄
(),
-20,
位或
(rtn,
524288))
SetLayeredWindowAttributes
(取窗口句柄
(),
底色,
0,
1)
效果如下：上图为正常窗口，下面为透明窗口。
注：窗口底色不能使用默认底色。
透明方式二：窗口半透明。源码如下。
.版本
2
.子程序
__启动窗口_创建完毕
.局部变量
rtn,
整数型
rtn
＝
GetWindowLong
(取窗口句柄
(),
-20)
SetWindowLong
(取窗口句柄
(),
-20,
位或
(rtn,
524288))
SetLayeredWindowAttributes
(取窗口句柄
(),
底色,
120,
2)
效果如下：上图为正常窗口，下图为透明窗口。
注：窗口底色不能使用默认底色。
透明方式三：窗口底色完全透明，控件半透明。源码如下。
.版本
2
.子程序
__启动窗口_创建完毕
.局部变量
rtn,
整数型
rtn
＝
GetWindowLong
(取窗口句柄
(),
-20)
SetWindowLong
(取窗口句柄
(),
-20,
位或
(rtn,
524288))
SetLayeredWindowAttributes
(取窗口句柄
(),
底色,
120,
3)
效果如下：上图为正常窗口，下图为透明窗口。
注：窗口底色不能使用默认底色。