Question

易语言怎么滑动滑块条来改窗口的透明度

如图

Answer 1

-----------DLL命令---------------
.版本 2
.DLL命令 设置透明, 整数型, , "SetLayeredWindowAttributes"
.参数 hwnd, 整数型
.参数 crkey, 整数型
.参数 alpha, 字节型
.参数 dwflags, 整数型
.DLL命令 取窗口风格, 整数型, , "GetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.DLL命令 置窗口风格, 整数型, , "SetWindowLongA"
.参数 hwnd, 整数型
.参数 nindex, 整数型
.参数 hnew, 整数型

---------------程序代码--------------
.版本 2
.子程序 透明窗体
.参数 窗口句柄, 整数型
.参数 透明值, 整数型, , 0-255
.局部变量 风格, 整数型
风格 ＝ 取窗口风格 (窗口句柄, -20)
风格 ＝ 位或 (风格, 524288)
置窗口风格 (窗口句柄, -20, 风格)
设置透明 (窗口句柄, 0, 透明值, 2)
.子程序 _滑块条1_位置被改变
透明窗体 (_启动窗口.取窗口句柄 (), (11 － 滑块条1.位置) × 0.1 × 255)'这句花了我半小时呀

Answer 2

你看看是不是你想要的效果？

Answer 3

设置窗口透明度