Tranparenz des Fensters mit slider einstellen

  • Also ich möchte, dass man mithilfe eines sliders die Tranzparenz einstellen kann..doch irgendwie klappt es nicht..

    [autoit]

    $Slider = GUICtrlCreateSlider(240, 8, 73, 17)
    GUICtrlSetLimit(-1, 250, 1)

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

    While 1
    Switch GUIGetMsg()
    Case $Slider
    GUICtrlSetData($wert, GUICtrlRead($Slider))
    EndSwitch
    WEnd
    $WinName = "TITEL"
    WinSetTrans($WinName, "", $wert)

    [/autoit]
  • Da waren noch mehr Fehler drin...
    z.B. muss man auch ein Fenster erzeugen um darin Controls erzeugen zu können. :rofl:

    [autoit]

    #include <GUIConstants.au3>

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

    $hWnd = GUICreate("Test", 400, 400)
    $Slider = GUICtrlCreateSlider(8, 8, 300, 25)
    GUICtrlSetLimit(-1, 255, 100)
    GUICtrlSetData($Slider, 255)
    GUISetState()

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Slider
    WinSetTrans($hWnd, "", GUICtrlRead($Slider))
    EndSwitch
    WEnd

    [/autoit]


    So funktioniert es.
    Tegron du hast kein einziges mal die Hilfe gelesen. Stimmt's oder hab ich Recht? :rolleyes:

  • Naja habs mal überflogen :whistling:

    nachdem ich blubbstars tipp befolgt habe,funzte es immer noch nicht:pinch:

    thx name22 :D

  • für noch mehr komfort empfehle ich: eine anzeige in %

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    $hWnd = GUICreate("Test", 400, 400)
    $Slider = GUICtrlCreateSlider(8, 8, 300, 25)
    $Percent = GUICtrlCreateLabel("100%", 8, 300, 300, 25)
    GUICtrlSetLimit(-1, 255, 100)
    GUICtrlSetData($Slider, 255)
    GUISetState()

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Slider
    $Read = GUICtrlRead($Slider)
    WinSetTrans($hWnd, "", $read)
    $transPercent = $read / 2.55
    $transPercentRound = Round($transPercent)
    GUICtrlSetData($Percent, $transPercentRound & "%")
    EndSwitch
    WEnd

    [/autoit]


    Edit1: Das hier lag noch iwo rum:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    $Form1 = GUICreate("Form1", 170, 126, 192, 124)
    $Button1 = GUICtrlCreateButton("Button1", 8, 8, 75, 25, 0)
    $Button2 = GUICtrlCreateButton("Button2", 8, 40, 75, 25, 0)
    $Slider1 = GUICtrlCreateSlider(8, 72, 150, 45)
    GUICtrlSetLimit(-1, 255, 1)
    GUICtrlSetData($Slider1, 255)
    GUISetState(@SW_SHOW)
    GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    Case $Button2
    EndSwitch
    WEnd
    Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam
    Local $hWndFrom, $iCode, $tNMHDR
    $nNotifyCode = BitShift($iwParam, 16)
    $nID = BitAND($iwParam, 0x0000FFFF)
    $Pos = GUICtrlRead($nID)
    If $nID = $Slider1 Then
    $Trans = GUICtrlRead($Slider1)
    WinSetTrans($Form1, "", $Trans)
    EndIf
    GUIRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')
    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit]

    (funzt eig besser ;))