How to bind a funcion to a button ?

[trol4ever]

Can someone show me a code , how to bind a button to a funcion :

Example :

$Button2 = GUICtrlCreateButton("Hide Window", 128, 16, 89, 33, 0)

with

Func Hide()

GUISetState(@SW_HIDE)

EndFunc

[SmOke_N]

GUICtrlSetOnEvent

[trol4ever]

... tell me what i'm wrong becouse :

GUICtrlSetOnEvent($Button2, "Hide")

its not working :|

[DjDeep00]

Ofcourse it works...u are doing it wrong...search the help file for "guisetonevent"...there is a great example there...

[DW1]

You must specify that you are using on event mode.

Try adding this to the top of your script:

Opt ("GUIOnEventMode", 1)

[GEOSoft]

You must specify that you are using on event mode.

Try adding this to the top of your script:

Opt ("GUIOnEventMode", 1)

It can also be done in the idle loop

While 1
   $msg = GUIGetMsg()
   Switch $Msg
      Case $Button2
         Hide()
   EndSwitch
WEnd

[trol4ever]

So :

expandcollapse popup

#include <GUIConstants.au3>
Opt ("GUIOnEventMode", 1)

Global $Paused = 0, $IsHotkey = 0
HotKeySet("{F1}", "PauseByHotKey")
HotKeySet("{F2}", "Hide")
HotKeySet("{F3}", "Show")
HotKeySet("{F4}", "Escape")

$Button1 = GUICtrlCreateButton("Pause", 16, 16, 97, 73, 0)
$Button2 = GUICtrlCreateButton("Hide Window", 128, 16, 89, 33, 0)
$Button3 = GUICtrlCreateButton("Show Window", 128, 56, 89, 33, 0)
$Input2 = GUICtrlCreateInput("F1 = Start/Pause", 16, 120, 97, 21)
$Input3 = GUICtrlCreateInput("F2 = Hide Window", 120, 120, 97, 21)
$Input4 = GUICtrlCreateInput("F3 = Show Window", 64, 144, 113, 21)

GUISetOnEvent($GUI_EVENT_CLOSE, "Escape")
GUICtrlSetOnEvent($Button1, "Pause")
GUICtrlSetOnEvent($Button2, "Hide")
GUICtrlSetOnEvent($Button3, "Show")

GUISetState(@SW_SHOW)

While 1
   Sleep(100)
WEnd

Func PauseByHotKey()
    If $Paused Then $IsHotkey = 1
    Pause()
EndFunc

Func Pause()
    Opt("GuiOnEventMode", 0)
    GUICtrlSetData($Button1, "Start")
    $Paused = 1
    While $Paused
        Sleep(10)
        $Msg = GUIGetMsg()
        ToolTip('ScripT Is On PausE ModE',0,0)
        If $Msg = $Button1 Or $IsHotkey = 1 Then ExitLoop
    WEnd
    $IsHotkey = 0
    $Paused = 0
    ToolTip("")
    Opt("GuiOnEventMode", 1)
    GUICtrlSetData($Button1, "Pause")
EndFunc

Func Hide()
    GUISetState(@SW_HIDE)
EndFunc

Func Show()
    GUISetState(@SW_SHOW)
EndFunc

Func Escape()
    Exit
EndFunc

and :| no result , The hotkeys work but the buttons don't

Edited October 23, 2007 by trol4ever

[GEOSoft]

The code for that GUI is a bit hard on the eyes.

[trol4ever]

Ok , figured it out , the buttons do not work when the script is paused .

However ... when i start the scrip how can i make it to start only when i push the "Start" button ?

without adding Pause() in front ...

[evilertoaster]

humm, maybe this-

expandcollapse popup

#include <GUIConstants.au3>
Opt ("GUIOnEventMode", 1)

Global $Paused = 0
HotKeySet("{F1}", "Pause")
HotKeySet("{F2}", "Hide")
HotKeySet("{F3}", "Show")
HotKeySet("{F4}", "Escape")
GUICreate("SomeGUI")

$Button1 = GUICtrlCreateButton("Pause", 16, 16, 97, 73, 0)
$Button2 = GUICtrlCreateButton("Hide Window", 128, 16, 89, 33, 0)
$Button3 = GUICtrlCreateButton("Show Window", 128, 56, 89, 33, 0)
$Input2 = GUICtrlCreateInput("F1 = Start/Pause", 16, 120, 97, 21)
$Input3 = GUICtrlCreateInput("F2 = Hide Window", 120, 120, 97, 21)
$Input4 = GUICtrlCreateInput("F3 = Show Window", 64, 144, 113, 21)

GUISetOnEvent($GUI_EVENT_CLOSE, "Escape")
GUICtrlSetOnEvent($Button1, "Pause")
GUICtrlSetOnEvent($Button2, "Hide")
GUICtrlSetOnEvent($Button3, "Show")

GUISetState(@SW_SHOW)

While 1
    Sleep(100)
    if $Paused=0 then ContinueLoop
    ToolTip('ScripT Is On PausE ModE',0,0)
WEnd

Func Pause()
    if $Paused=0 then
        GUICtrlSetData($Button1, "Start")
        $Paused = 1
    Else
        $Paused = 0
        ToolTip("")
        GUICtrlSetData($Button1, "Pause")
    EndIf
EndFunc

Func Hide()
    GUISetState(@SW_HIDE)
EndFunc

Func Show()
    GUISetState(@SW_SHOW)
EndFunc

Func Escape()
    Exit
EndFunc

[trol4ever]

still doesn't work ... it starts with the macro , u need to pause it ... i want to start with the macro paused and work only when i push Start .

[BrettF]

Maybe...

expandcollapse popup

#include <GUIConstants.au3>
Opt ("GUIOnEventMode", 1)

Global $Paused = 1
HotKeySet("{F1}", "Pause")
HotKeySet("{F2}", "Hide")
HotKeySet("{F3}", "Show")
HotKeySet("{F4}", "Escape")
GUICreate("SomeGUI")

$Button1 = GUICtrlCreateButton("Pause", 16, 16, 97, 73, 0)
$Button2 = GUICtrlCreateButton("Hide Window", 128, 16, 89, 33, 0)
$Button3 = GUICtrlCreateButton("Show Window", 128, 56, 89, 33, 0)
$Input2 = GUICtrlCreateInput("F1 = Start/Pause", 16, 120, 97, 21)
$Input3 = GUICtrlCreateInput("F2 = Hide Window", 120, 120, 97, 21)
$Input4 = GUICtrlCreateInput("F3 = Show Window", 64, 144, 113, 21)

GUISetOnEvent($GUI_EVENT_CLOSE, "Escape")
GUICtrlSetOnEvent($Button1, "Pause")
GUICtrlSetOnEvent($Button2, "Hide")
GUICtrlSetOnEvent($Button3, "Show")

GUISetState(@SW_SHOW)

While 1
    Sleep(100)
    if $Paused=0 then ContinueLoop
    ToolTip('ScripT Is On PausE ModE',0,0)
WEnd

Func Pause()
    if $Paused=0 then
        GUICtrlSetData($Button1, "Start")
        $Paused = 1
    Else
        $Paused = 0
        ToolTip("")
        GUICtrlSetData($Button1, "Pause")
    EndIf
EndFunc

Func Hide()
    GUISetState(@SW_HIDE)
EndFunc

Func Show()
    GUISetState(@SW_SHOW)
EndFunc

Func Escape()
    Exit
EndFunc

[trol4ever]

thx bert ... it works , but ? what have u done ? what changes u made ?

[GEOSoft]

thx bert ... it works , but ? what have u done ? what changes u made ?

Global Paused = 1