GUICreate Question

[luckyluke]

Hi.

I have some problem with following code:

expandcollapse popup

;   Here is GUI_1


$Form1 = GUICreate("Form1", 378, 256, 193, 125)
$Button3 = GUICtrlCreateButton("create", 248, 224, 89, 25, 0)
GUISetState(@SW_SHOW)

$listview = GUICtrlCreateListView (" Num",10,10,361,201)

GUICtrlCreateListViewItem("1",$listview)

GUICtrlSetState(-1,$GUI_DROPACCEPTED)  ; to allow drag and dropping
GUISetState()
Next

Do
  $msg = GUIGetMsg ()
     
   Select
      Case $msg = $listview
         MsgBox(0,"listview", "clicked="& GUICtrlGetState($listview),2)
      Case $msg = $Button3
         create()
   EndSelect
Until $msg = $GUI_EVENT_CLOSE

func create()


; here is GUI_2


$Form2 = GUICreate("Form2", 378, 256, 193, 125)
$cancel = GUICtrlCreateButton("cancel", 248, 224, 89, 25, 0)
GUISetState(@SW_SHOW)

$listview = GUICtrlCreateListView (" Num",10,10,361,201)

GUICtrlCreateListViewItem("1",$listview)

GUICtrlSetState(-1,$GUI_DROPACCEPTED)  ; to allow drag and dropping
GUISetState()
Next

Do
  $msg = GUIGetMsg ()
     
   Select
      Case $msg = $cancel
         exit
   EndSelect
Until $msg = $GUI_EVENT_CLOSE

endfunc

My question is:

When i exit GUI_2, GUI_1 exit too. How to exit GUI_2 but GUI_1 do not exit.

Thanks

[sandin]

expandcollapse popup

#include <GUIConstantsEx.au3>

$Form1 = GUICreate("Form1", 378, 256, 193, 125)
$Button3 = GUICtrlCreateButton("create", 248, 224, 89, 25, 0)

$listview = GUICtrlCreateListView (" Num",10,10,361,201)

GUICtrlCreateListViewItem("1",$listview)

GUICtrlSetState(-1,$GUI_DROPACCEPTED)  ; to allow drag and dropping
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg ()
    Switch $msg
        Case $listview
            MsgBox(0,"listview", "clicked="& GUICtrlGetState($listview),2)
        Case $Button3
            create()
        case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

func create()

$Form2 = GUICreate("Form2", 378, 256, 193, 125, -1, -1, $Form1)
$cancel = GUICtrlCreateButton("cancel", 248, 224, 89, 25, 0)

$listview = GUICtrlCreateListView (" Num",10,10,361,201)

GUICtrlCreateListViewItem("1",$listview)

GUICtrlSetState(-1,$GUI_DROPACCEPTED)  ; to allow drag and dropping
GUISetState(@SW_SHOW)

    While 1
        $msg = GUIGetMsg ()
        Switch $msg
            Case $cancel
                ExitLoop
            case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd
GUIDelete($Form2)
endfunc

exit = will exit entire script

guidelete = will close only selected window (GUI)

[rasim]

sandin

Why need to create 2 main loops

luckyluke

See here

[luckyluke]

Thank!

But when close GUI_2,

Case $listview
            MsgBox(0,"listview", "clicked="& GUICtrlGetState($listview),2)

do not work when i click.

[luckyluke]

sandin

Why need to create 2 main loops blink.gif

luckyluke

See here

#include <GuiConstants.au3>

$hMainGUI = GUICreate("Main GUI", 300, 200)

$SwitchButton = GUICtrlCreateButton("Switch", 100, 50, 60, 25)

$hChildGUI = GUICreate("Child GUI", 200, 100, -1, -1, -1, -1, $hMainGUI)
$SwitchButton1 = GUICtrlCreateButton("cancel", 100, 50, 55, 20)

GUISetState(@SW_SHOW, $hMainGUI)

While 1
    $msg = GUIGetMsg(1)
    Select
        Case $msg[0] = $GUI_EVENT_CLOSE  And $msg[1] = $hMainGUI
            ExitLoop
        Case $msg[0] = $GUI_EVENT_CLOSE  And $msg[1] = $hChildGUI
            GUISetState(@SW_ENABLE, $hMainGUI)
            GUISetState(@SW_HIDE, $hChildGUI)
        Case $msg[0] = $SwitchButton
            GUISetState(@SW_DISABLE, $hMainGUI)
            GUISetState(@SW_SHOW, $hChildGUI)
        Case $msg[0] = $SwitchButton1
            GUISetState(@SW_ENABLE, $hMainGUI)
            GUISetState(@SW_HIDE, $hChildGUI)
    EndSelect
WEnd

It look good to have a simple code. Thank you so much

Edited June 22, 2008 by luckyluke