Multiple windows loops handler

[NikonD800E]

I made one main window and make one button to launch a new window.
At last I found there is another one loop in the sub function.

It causes the secondary window cannot be close (neither the main window).

Is there any solution to make the secondary window works normally?

Help me plz~~~

Thank you very much!

expandcollapse popup

HotKeySet( "{PGUP}", "_Capture" )
Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Test Utility Manager", 500, 400, -1, -1)

$Button1 = GUICtrlCreateButton("Function1", 0, 0, 75, 25)

GUISetOnEvent($GUI_EVENT_CLOSE, "_GuiEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_GuiEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "_GuiEvents")

GUICtrlSetOnEvent($Button1, "_Button1_OnEvent")


GUISetState(@SW_SHOW)

While 1
    Sleep(500)
WEnd

Func _GuiEvents()
    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_MINIMIZE
            GUISetState(@SW_HIDE)
        Case $GUI_EVENT_RESTORE

    EndSwitch
EndFunc   ;==>_GuiEvents

Func _Button1_OnEvent()
    GUISetState(@SW_MINIMIZE)
    If FileExists("C:\GetMousePos.txt") Then
    FileWrite("C:\GetMousePos.txt", $date & @CRLF)
        Else
            FileOpen("C:\GetMousePos.txt", 1)
            FileWrite("C:\GetMousePos.txt", $date & @CRLF)
        EndIf

    Global $GUI = GUICreate("GetMousePos v1.1", "150", "40", "-1", "-1", "-1", "128")
    GUISetOnEvent(-3, "_ExitCapture")
    GUISetFont ("9", "600", "", "Arial")
    $Input = GUICtrlCreateInput("", "0", "0", "150", "20", "1")
    $Input2 = GUICtrlCreateInput("", "0", "20", "150", "20", "1")
    GUICtrlSetState($Input, 128)
    GUICtrlSetState($Input2, 128)
    GUISetState(@SW_SHOW, $GUI)
    WinSetOnTop($GUI, "", "1")  ;always on top

    While 1
    Sleep(15)
    WEnd

EndFunc

Func _Capture()
   $pos = MouseGetPos()
   MsgBox(0, "Mouse x,y:", $pos[0] & "," & $pos[1])
   $var = PixelGetColor( $pos[0] , $pos[1])
   MsgBox(0,"The decimal color is", Hex($var, 6))
   FileWrite("C:\GetMousePos.txt", $pos[0] & "," & $pos[1] & "; " & Hex($var, 6) & @CRLF)
EndFunc 

 
 

[BrewManNH]

Maybe this is more what you're looking to do?

expandcollapse popup

#include <GUIConstantsEx.au3>
Global $GUI
HotKeySet("{PGUP}", "_Capture")
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Test Utility Manager", 500, 400, -1, -1)
$Button1 = GUICtrlCreateButton("Function1", 0, 0, 75, 25)
GUISetOnEvent($GUI_EVENT_CLOSE, "_GuiEvents")
GUICtrlSetOnEvent($Button1, "_Button1_OnEvent")
GUISetState(@SW_SHOW)
While 1
    Sleep(50)
WEnd
Func _Button1_OnEvent()
    GUISetState(@SW_MINIMIZE)
    If FileExists("C:\GetMousePos.txt") Then
;~      FileWrite("C:\GetMousePos.txt", $date & @CRLF)
    Else
;~      FileOpen("C:\GetMousePos.txt", 1)
;~      FileWrite("C:\GetMousePos.txt", $date & @CRLF)
    EndIf
    $GUI = GUICreate("GetMousePos v1.1", "150", "40", "-1", "-1", "-1", "128")
    GUISetOnEvent($GUI_EVENT_CLOSE, "_ExitCapture")
    GUISetFont("9", "600", "", "Arial")
    $Input = GUICtrlCreateInput("", "0", "0", "150", "20", "1")
    $Input2 = GUICtrlCreateInput("", "0", "20", "150", "20", "1")
    GUICtrlSetState($Input, 128)
    GUICtrlSetState($Input2, 128)
    GUISetState(@SW_SHOW, $GUI)
    WinSetOnTop($GUI, "", "1") ;always on top
EndFunc   ;==>_Button1_OnEvent
Func _Capture()
    $pos = MouseGetPos()
    MsgBox(0, "Mouse x,y:", $pos[0] & "," & $pos[1])
    $var = PixelGetColor($pos[0], $pos[1])
    MsgBox(0, "The decimal color is", Hex($var, 6))
    FileWrite("C:\GetMousePos.txt", $pos[0] & "," & $pos[1] & "; " & Hex($var, 6) & @CRLF)
EndFunc   ;==>_Capture
Func _GuiEvents()
    Exit
EndFunc   ;==>_GuiEvents
Func _ExitCapture()
    GUIDelete($GUI)
EndFunc

[NikonD800E]

Thanks BrewManNH

But this cannot solve the sub function which is needed to use loop.

The secondary window cannot get the mouse position in time.

Is there any solution to let me use while loop in the sub function too?

Thank you so much again!!

[BrewManNH]

No