滑块条控制子窗口透明度问题

学易未精

  

子程序名	返回值类型	公开	备 注
_滑块条2_位置被改变

变量名	类 型	静态	数组	备 注
句柄	整数型
子句柄	整数型		0

句柄 ＝ 进程_名取句柄 (“Photoshop.exe”)
设置窗口透明度_ (窗口_枚举所有子窗口 (句柄, 子句柄, “OWL.Toolbar”), 到整数 (滑块条2.位置), 假)

子程序名	返回值类型	公开	备 注
设置窗口透明度_	逻辑型
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
透明层度	整数型
穿透窗体	逻辑型

变量名	类 型	静态	数组	备 注
dwStyle	整数型

如果真 (API_IsWindow (窗口句柄) ≠ #TRUE )
返回 (假)
dwStyle ＝ API_GetWindowLong (窗口句柄, #GWL_EXSTYLE )
dwStyle ＝ 位或 (dwStyle, #WS_EX_LAYERED )
如果真 (穿透窗体)
dwStyle ＝ 位或 (dwStyle, #WS_EX_TRANSPARENT )
API_SetWindowLong (窗口句柄, #GWL_EXSTYLE, dwStyle)
返回 (API_SetLayeredWindowAttributes (窗口句柄, 0, 透明层度, #LWA_ALPHA ) ≠ #FALSE )

.版本 2<br /> <br /> .子程序 _滑块条2_位置被改变<br /> .局部变量 句柄, 整数型<br /> .局部变量 子句柄, 整数型, , "0"<br /> <br /> 句柄 ＝ 进程_名取句柄 (“Photoshop.exe”)<br /> 设置窗口透明度_ (窗口_枚举所有子窗口 (句柄, 子句柄, “OWL.Toolbar”), 到整数 (滑块条2.位置), 假)<br /> <br /> .子程序 设置窗口透明度_, 逻辑型<br /> .参数 窗口句柄, 整数型<br /> .参数 透明层度, 整数型, 可空<br /> .参数 穿透窗体, 逻辑型, 可空<br /> .局部变量 dwStyle, 整数型<br /> <br /> .如果真 (API_IsWindow (窗口句柄) ≠ #TRUE)<br />     返回 (假)<br /> .如果真结束<br /> dwStyle ＝ API_GetWindowLong (窗口句柄, #GWL_EXSTYLE)<br /> dwStyle ＝ 位或 (dwStyle, #WS_EX_LAYERED)<br /> .如果真 (穿透窗体)<br />     dwStyle ＝ 位或 (dwStyle, #WS_EX_TRANSPARENT)<br /> .如果真结束<br /> API_SetWindowLong (窗口句柄, #GWL_EXSTYLE, dwStyle)<br /> 返回 (API_SetLayeredWindowAttributes (窗口句柄, 0, 透明层度, #LWA_ALPHA) ≠ #FALSE)

通过滑块2去改变Ps工具箱的透明度，但是实现不了，求大神解救，谢谢。

学易未精

新建 易程序.e (2.95 KB, 下载次数: 26)

2019-4-29 14:30 上传

点击文件名下载附件
这个是DLL和常量

21岁的天空

估计是你句柄问题

hmz59420

感谢分享感谢分享感谢分享感谢分享感谢分享

云渺RedBull

#在这里快速回复#通过hk2去改变Ps工具箱的透明度，但是实现不了，求大神解救，谢谢。

aixxx

感谢分享感谢分享感谢分享感谢分享感谢分享

wangshen2019

66666666666666666666666666

zuojue

我也先要