Two GUI's

[Sardith]

expandcollapse popup

#include <GUIConstants.au3>

$hGui = GUICreate("Test", 360, 115, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))


$list=GUICtrlCreateList ("", 100,32, 200, 300)
GUICtrlSetLimit(-1,200) ; to limit horizontal scrolling
GUICtrlSetData(-1, _FormatProcessList())
$Button_1 = GUICtrlCreateButton ("Refresh",  10, 30, 100)


GUISetState ()

$Process = GUICreate("Process List", 360, 115, -1, 600, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

Func Refresh()
    GUICtrlSetData($List, "")
    GUICtrlSetData($List, _FormatProcessList())
EndFunc

Func _FormatProcessList()
    Local $list = ProcessList()
    Local $retstr = 0
    For $i = 1 To $list[0][0]
        $retstr = $retstr & $list[$i][0]
        If $i < $list[0][0] Then $retstr = $retstr & "|"
    Next
    Return $retstr
EndFunc 
GUISetState ()


While 1
    $msg = GUIGetMsg()
Switch $Msg
    Case $Button_1
        Refresh()
         
        Case $GUI_EVENT_CLOSE
            ExitLoop

        
   EndSwitch
WendoÝ÷ ÙhZ´m±ç¦¶hÌ!z{azÇ¢wFP7êèqë,ßÜwö+)­ë,yÒ#ºËpj{b¶Ú!×­ì"Ú0Ó~®²Æ§vz-{­¶©®+je¡jØ·ö÷­¯'jëh×6
While 1
    $msg2 = GuiGetMsg()
    Select
        Case $msg2 = $GUI_EVENT_CLOSE
            WinSetState($Process, "", @SW_HIDE)
    EndSelect
WEnd

It works, if you press the 'x' twice. But it causes the $hGui to not funcation. Any help would be great.

Thanks,

Jeff

[/dev/null]

While 1
    $msg2 = GuiGetMsg()
    Select
        Case $msg2 = $GUI_EVENT_CLOSE
            WinSetState($Process, "", @SW_HIDE)
    EndSelect
WEnd
oÝ÷ Øp¢¹,ü¨ºÞ²Ëa{qßÛpǺحq«¬zËa{Múk¢¶èµû§q«b¢p'Ê¥§
.ÖÞ·µ8ZK    y÷ÿªê-{¥*.ë-µéejëhÜ!ÈpwhÃø.§z¶­yÛax"ÎHG¯z{Ryè^âçè¬eëL²áz·¢±©è¦Ø¨©ij¶¦j׫jëh×6   GUIGetMsg(1)

If this case it will return an array. $array[1] = The window handle the event is from.

[Sardith]

Thanks Dev/null i'll look into it

[Sardith]

expandcollapse popup

#include <GUIConstants.au3>

;dims
Dim $array[1]

$hGui = GUICreate("Test", 360, 115, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))


$list=GUICtrlCreateList ("", 100,32, 200, 300)
GUICtrlSetLimit(-1,200) ; to limit horizontal scrolling
GUICtrlSetData(-1, _FormatProcessList())
$Button_1 = GUICtrlCreateButton ("Refresh",  10, 30, 100)


GUISetState ()

$Process = GUICreate("Process List", 360, 115, -1, 600, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

Func Refresh()
    GUICtrlSetData($List, "")
    GUICtrlSetData($List, _FormatProcessList())
EndFunc

Func _FormatProcessList()
    Local $list = ProcessList()
    Local $retstr = 0
    For $i = 1 To $list[0][0]
        $retstr = $retstr & $list[$i][0]
        If $i < $list[0][0] Then $retstr = $retstr & "|"
    Next
    Return $retstr
EndFunc 
GUISetState ()


While 1
    $msg = GUIGetMsg(1)
Switch $Msg
    Case $Button_1
        Refresh()
         
     Case $array[1] 
         If $Process = $array[1] Then
        WinSetState($Process, "", @SW_HIDE)
        EndIf
        
   EndSwitch
Wend

Thats what I tryed, no luck. Just can't seem to get this.

[Uten]

You need to take a look at GuiSwitch and GuiDelete. Use GuiSetState($hwnd, [@SW_HIDE|@SW_SHOW]) to hide or show rather than Exit. GuiGetMsg() is always for the latest GuiCreate(...)

[Uten]

This $msg = GUIGetMsg(1) returns an array. And must be used as such in the switch statement.