Consecutive GUI's and OnEventMode

[CMJ 0]

Can anyone tell me why the buttons on the second GUI will not work in the following code? What am I missing here?

Thanks in advance,

cj

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
Opt("GUICoordMode", 2)

Global $GUI1, $GUI2, $hChooseOK, $hChooseCancel, $hChooseOK2, $hChooseCancel2

GUI1()

Func GUI1()

    $GUI1 = GUICreate("Number 1", 275, 175, -1, -1, BitOR($WS_CHILD, $WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU), Default)

    $hChooseOK = GUICtrlCreateButton("Ok", -1, 25, 85, 25)
        GUICtrlSetOnEvent(-1, 'GUI2')
    $hChooseCancel = GUICtrlCreateButton("Cancel", 10, -1, 85, 25)
        GUICtrlSetOnEvent(-1, 'Close')
    GUISetOnEvent($GUI_EVENT_CLOSE, 'Close')
    GUISetState(@SW_SHOW)

    While 1
        Sleep(1000)
    WEnd
EndFunc

Func GUI2()
    GUIDelete($GUI1)
    $GUI2 = GUICreate("GUI Number 2", 275, 175, -1, -1, BitOR($WS_CHILD, $WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU), Default)

    $hChooseOK2 = GUICtrlCreateButton("Close", -1, 25, 85, 25)
        GUICtrlSetOnEvent(-1, 'Close')
    $hChooseCancel2 = GUICtrlCreateButton("Cancel", 10, -1, 85, 25)
        GUICtrlSetOnEvent(-1, 'Close')
    GUISetOnEvent($GUI_EVENT_CLOSE, 'Close')
    GUISetState(@SW_SHOW)
    While 1
        Sleep(1000)
    WEnd
EndFunc

Func Close()
    Exit
EndFunc

[smashly 11]

hi, move your sleep outside the functions.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
Opt("GUICoordMode", 2)

Global $GUI1, $GUI2, $hChooseOK, $hChooseCancel, $hChooseOK2, $hChooseCancel2

GUI1()

While 1
    Sleep(1000)
WEnd

Func GUI1()
    $GUI1 = GUICreate("Number 1", 275, 175, -1, -1, BitOR($WS_CHILD, $WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU), Default)
    $hChooseOK = GUICtrlCreateButton("Ok", -1, 25, 85, 25)
        GUICtrlSetOnEvent(-1, 'GUI2')
    $hChooseCancel = GUICtrlCreateButton("Cancel", 10, -1, 85, 25)
        GUICtrlSetOnEvent(-1, 'Close')
    GUISetOnEvent($GUI_EVENT_CLOSE, 'Close', $GUI1)
    GUISetState(@SW_SHOW, $GUI1)
EndFunc

Func GUI2()
    GUIDelete($GUI1)
    $GUI2 = GUICreate("GUI Number 2", 275, 175, -1, -1, BitOR($WS_CHILD, $WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU), Default)
    $hChooseOK2 = GUICtrlCreateButton("Close", -1, 25, 85, 25)
        GUICtrlSetOnEvent(-1, 'Close')
    $hChooseCancel2 = GUICtrlCreateButton("Cancel", 10, -1, 85, 25)
        GUICtrlSetOnEvent(-1, 'Close')
    GUISetOnEvent($GUI_EVENT_CLOSE, 'Close', $GUI2)
    GUISetState(@SW_SHOW, $GUI2)
EndFunc

Func Close()
    Exit
EndFunc

Cheers

[AdmiralAlkex 118]

Can anyone tell me why the buttons on the second GUI will not work in the following code? What am I missing here?

Events are queued and run from first to last. You need to return from the function like smashly showed.

[CMJ 0]

Thank you both. That was what I needed. I knew it was something simple.

Regards,

cj