七夕情人节表白小程序,修改配置编译可用开源。
.子程序 窗口_透明效果, 逻辑型, 公开
.参数 窗口句柄, 整数型
.参数 透明颜色, 整数型, , 默认为#品红
.参数 透明度, 整数型, 可空, 默认为255
.参数 透明方式, 整数型, 可空, 1为颜色透明,透明度无效!2为透明度透明,颜色无效!1+2为均有效
.局部变量 信息, 整数型
.如果真 (透明度 = 0)
透明度 = 255
.如果真结束
信息 = GetWindowLongA (窗口句柄, #GWL_EXSTYLE)
信息 = 位或 (信息, #WS_EX_LAYERED)
SetWindowLongA (窗口句柄, #GWL_EXSTYLE, #WS_EX_LAYERED)
信息 = SetLayeredWindowAttributes (窗口句柄, 透明颜色, 透明度, 透明方式)
.如果真 (信息 ≠ 0)
返回 (真)
.如果真结束
返回 (假)
上一篇 语音翻译工具附带语音播放
下一篇 正则表达式例程