GUI per Slider Trasparent machen

[autoit]

#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$GUI = GUICreate ("GUI", 300, 300)
GUIRegisterMsg($WM_NOTIFY, "_WM_Notify")

[/autoit] [autoit][/autoit] [autoit]

$Slider = GUICtrlCreateSlider (10, 100, 200, 30)
GUICtrlSetLimit (-1, 100, 0)
GUICtrlSetData ($Slider, 100)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

Do
Until GUIGetMsg() = -3

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _WM_Notify($hWnd, $Msg, $wParam, $lParam)
$nNotifyCode = BitShift($wParam, 16)
$nID = BitAND($wParam, 0x0000FFFF)
$hCtrl = $lParam
If $nID = $Slider Then WinSetTrans($GUI, "", GUICtrlRead($slider) * 2.55)
EndFunc

[/autoit]