找回密码
 加入
搜索
查看: 4723|回复: 7

[转贴] 使用slider来调整窗口的透明状态

  [复制链接]
发表于 2009-7-27 14:03:58 | 显示全部楼层 |阅读模式
最近在学习autoit,看到了一个很不错的例子,改变窗口的透明状态,今天转来和大家共享

$gui = GuiCreate("MyGUI", 392, 86,-1, -1)

$Slider_1 = GuiCtrlCreateSlider(30, 10, 340, 60)
GUICtrlSetLimit ($Slider_1,255)
GUICtrlSetData($Slider_1, 255)

Global Const $WM_HSCROLL = 0x114
Global Const $TB_LINEUP                 = 0
Global Const $TB_LINEDOWN               = 1
Global Const $TB_PAGEUP                 = 2
Global Const $TB_PAGEDOWN               = 3
Global Const $TB_THUMBPOSITION          = 4
Global Const $TB_THUMBTRACK             = 5

GUIRegisterMsg($WM_HSCROLL, "MY_WM_HSCROLL")

GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = -3
            ExitLoop
        Case Else
            ;;;
    EndSelect
WEnd

Func MY_WM_HSCROLL($hWnd, $msg, $wParam, $lParam)
    $nScrollCode      = BitAnd($wParam, 0x0000FFFF)
    $nPos           = BitShift($wParam, 16)
    $hwndScrollBar    = $lParam
    Switch $nScrollCode
        Case $TB_LINEDOWN ,$TB_LINEUP,$TB_PAGEDOWN,$TB_PAGEUP,$TB_THUMBTRACK
            WinSetTrans ($gui,"",GUICtrlRead($Slider_1))
    EndSwitch
EndFunc
发表于 2009-8-29 14:50:47 | 显示全部楼层
谢谢楼主,学习 了
发表于 2011-12-22 23:39:09 | 显示全部楼层
试了一下,还是挺不错的,感谢楼主分享!
发表于 2011-12-23 00:18:31 | 显示全部楼层
效果不错,收藏了
发表于 2012-2-20 15:12:35 | 显示全部楼层
有意思哈哈,调用下.
发表于 2012-3-9 16:43:45 | 显示全部楼层
效果不错,收藏了
发表于 2012-3-10 18:02:22 | 显示全部楼层
发表于 2012-3-10 19:51:25 | 显示全部楼层
学习了 谢谢分享
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-1 06:50 , Processed in 0.095019 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表