Creating another window in the script

[Ahmed97]

Hi Bros, i have problem with this script im making program and i want press button in the program that set trans for the program.

look to script....

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>

$Test = GUICreate("Test", 263, 81, 391, 374)
$exit = GUICtrlCreateButton("Exit", 144, 24, 75, 25, $WS_GROUP)
$SetTrans = GUICtrlCreateButton("Set Trans", 40, 24, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $exit
            Exit
        Case $SetTrans

            $SliderWin = GUICreate("", 116, 317, 403, 214)
            $Group1 = GUICtrlCreateGroup("Transperancy", 16, 0, 89, 313)
            $Slider = GUICtrlCreateSlider(40, 16, 54, 269, BitOR($TBS_VERT, $TBS_AUTOTICKS, $TBS_BOTH))
            GUICtrlSetLimit(-1, 255, 0)
            GUICtrlSetData(1, 255)
            $Label = GUICtrlCreateLabel("255", 34, 288, 52, 17, $SS_CENTER)
            GUICtrlCreateGroup("", -99, -99, 1, 1)
            GUISetState(@SW_SHOW)


            $Prev = GUICtrlRead($Slider)
            While 1
                $Data = GUICtrlRead($Slider)
                If $Data <> $Prev Then
                    GUICtrlSetData($Label, $Data)
                    $Prev = $Data
                EndIf
                $Msg = GUIGetMsg()
                Switch $Msg
                    Case $GUI_EVENT_CLOSE ; Proplem is here
                        Exit ; Here too
                EndSwitch
            WEnd

    EndSwitch
WEnd

When i press " Set Trans " button its open the new window and all things work 100% ; Proplem here, but when i press X

to close the window the main program closing with it, i want when i press X close the Trans Window only not the program.

Please Help :S

Sorry For Bad English

Edited May 31, 2011 by TheMaster

[ahmet]

Repleace this

Exit ; Here too

with this

GUIDelete($SliderWin)
ExitLoop

Look also here.

[Ahmed97]

with this

GUIDelete($SliderWin)
ExitLoop

This is working, many thnx

[Ahmed97]

another question...

Can i write the code by another way that can Read the Slider from 0 to 255 and set transparency to the degree where the slider on ?

another meaning..

$Prev = GUICtrlRead($Slider)
            While 1
                $Data = GUICtrlRead($Slider)
                If $Data <> $Prev Then
                    GUICtrlSetData($Label, $Data)
                    $Prev = $Data

                    If $Data = 50 Then ; Here's the proplem
                        WinSetTrans("Test", "", 50) ; here too
                    EndIf ;;;;

                EndIf

in that code above dont change the trans in any degree just the D-50 ( Degree ) change the trans to 50

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>

$Test = GUICreate("Test", 263, 81, 391, 374)
$exit = GUICtrlCreateButton("Exit", 144, 24, 75, 25, $WS_GROUP)
$SetTrans = GUICtrlCreateButton("Set Trans", 40, 24, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $exit
            Exit
        Case $SetTrans

            $SliderWin = GUICreate("", 116, 317, 403, 214)
            $Group1 = GUICtrlCreateGroup("Transperancy", 16, 0, 89, 313)
            $Slider = GUICtrlCreateSlider(40, 16, 54, 269, BitOR($TBS_VERT, $TBS_AUTOTICKS, $TBS_BOTH))
            GUICtrlSetLimit(-1, 255, 50)
            GUICtrlSetData(1, 255)
            $Label = GUICtrlCreateLabel("255", 34, 288, 52, 17, $SS_CENTER)
            GUICtrlCreateGroup("", -99, -99, 1, 1)
            GUISetState(@SW_SHOW)


            $Prev = GUICtrlRead($Slider)
            While 1
                $Data = GUICtrlRead($Slider)
                If $Data <> $Prev Then
                    GUICtrlSetData($Label, $Data)
                    $Prev = $Data

                    If $Data = 50 Then ; Here's the proplem
                        WinSetTrans("Test", "", 50) ; here too
                    EndIf ;;;;

                EndIf

                $Msg = GUIGetMsg()
                Switch $Msg
                    Case $GUI_EVENT_CLOSE
                        GUIDelete($SliderWin)
                        ExitLoop
                EndSwitch
            WEnd

    EndSwitch
WEnd

[ahmet]

Remove If block and add

WinSetTrans($Test,"",$Data)

or maybe I haven't understood well.

[Ahmed97]

it's dont work..listen, want make the slider like the volume slider if u decreased it 1degree the sound decrease 1degree not mute the sound..here's same ( slider now on 50 degree ) the program now very transparent so i want increase slider degree to 255 to see the program well.

the question is :

Must i write

If $Data = 50 Then
    WinSetTrans("Test", "", 50)

    If $Data = 100 Then
        WinSetTrans("Test", "", 100)
    EndIf
EndIf

and so on ??

Edited May 31, 2011 by TheMaster

[pieeater]

this is how i got the slider working on the trans, i changed it so the trans cant make the gui invisible so you can still close the gui

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>

$Test = GUICreate("Test", 263, 81, 391, 374)
$exit = GUICtrlCreateButton("Exit", 144, 24, 75, 25, $WS_GROUP)
$SetTrans = GUICtrlCreateButton("Set Trans", 40, 24, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $exit
            Exit
        Case $SetTrans

            $SliderWin = GUICreate("Trans window", 116, 317, 403, 214)
            $Group1 = GUICtrlCreateGroup("Transperancy", 16, 0, 89, 313)
            $Slider = GUICtrlCreateSlider(40, 16, 54, 269, BitOR($TBS_VERT, $TBS_AUTOTICKS, $TBS_BOTH))
            GUICtrlSetLimit(-1, 255, 20)
            GUICtrlSetData(1, 255)
            $Label = GUICtrlCreateLabel("255", 34, 288, 52, 17, $SS_CENTER)
            GUICtrlCreateGroup("", -99, -99, 1, 1)
            GUISetState(@SW_SHOW)

            GUICtrlSetData($Slider, 255)
            $Prev = GUICtrlRead($Slider)
            While 1
                $Data = GUICtrlRead($Slider)
                If $Data <> $Prev Then
                    GUICtrlSetData($Label, $Data)
                    If $Data > 20 Then WinSetTrans("Trans window", "", $Data)
                    $Prev = $Data
                EndIf
                $Msg = GUIGetMsg()
                Switch $Msg
                    Case $GUI_EVENT_CLOSE ; Proplem is here
                        Exit ; Here too
                EndSwitch
            WEnd

    EndSwitch
WEnd

[Ahmed97]

thnxxxx bro working 100%