随笔 - 52,  文章 - 0,  评论 - 7,  阅读 - 9836

功能描述

此脚本可以以ui的形式调整当前窗口的透明度,截图如下:

image

通过拖动滑动条(值0~255),就可以设置透明度了。
并且可以记住(启动时获取)窗口透明度,方便随时恢复。

仓库地址

代码

#Requires AutoHotkey v2.0
#SingleInstance Ignore
#Include G:\AHK\git-ahk-lib\Extend.ahk
#Include G:\AHK\git-ahk-lib\Theme.ahk
#Include G:\AHK\git-ahk-lib\Tip.ahk
#Include G:\AHK\git-ahk-lib\util\Animation.ahk
#NoTrayIcon
TransparencyGUI.Show()
class TransparencyGUI extends Gui {
__New() {
super.__New("+AlwaysOnTop -Caption +Border +ToolWindow")
this.SetFont('s12', 'consolas'), id := WinGetID('A')
slider := this.AddSlider("ToolTip Range0-255 AltSubmit w200", GetWinTransparent('ahk_id' id))
slider.OnEvent("Change", (ctrl, *) => (WinSetTransparent(Ctrl.Value, 'ahk_id' id), Tip.ShowTip(ctrl.Value)))
this.AddText("xm w200", _c(WinGetTitle('ahk_id' id), 22).RTrim('`n')).OnEvent("Click", (*) => Animation.FadeOut(this))
ControlFocus(slider), Theme.Dark(this)
_c(v, l, i := 1) => v.Length - i <= l ? SubStr(v, i) '`n' : SubStr(v, i, l) '`n' _c(v, l, i + l)
}
static Show() => TransparencyGUI().Show(Format('x{} y{}', 100, 50))
}

注意:包含的库处于另一个仓库中,详细见仓库下Readme

posted on   落寞的雪  阅读(11)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 百万级群聊的设计实践
· 永远不要相信用户的输入:从 SQL 注入攻防看输入验证的重要性
· 全网最简单!3分钟用满血DeepSeek R1开发一款AI智能客服,零代码轻松接入微信、公众号、小程
· .NET 10 首个预览版发布,跨平台开发与性能全面提升
· 《HelloGitHub》第 107 期

< 2025年3月 >
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5
点击右上角即可分享
微信分享提示