close a child GUI and not the Parent

[John117 1]

I have added the following code to my While 1 section

CODE

While 1

$msg = GUIGetMsg()

If $msg = $UpdateProfile Then _UpdateProfile()

Select

;Check if user clicked on a close button of any of the 2 windows

Case $msg = $GUI_EVENT_CLOSE

;Check if user clicked on the close button of the child window

If $msg = $ProfileForm1 Then

MsgBox(64, "Test", "Child GUI will now close.")

;Switch to the child window

GUISwitch($ProfileForm1)

;Destroy the child GUI including the controls

GUIDelete()

;Check if user clicked on the close button of the parent window

ElseIf $msg = $ParentWin Then

MsgBox(64, "Test", "Parent GUI will now close.")

;Switch to the parent window

GUISwitch($ParentWin)

;Destroy the parent GUI including the controls

GUIDelete()

EndIf

EndSelect

WEnd

When used I get:

If $msg = $ProfileForm1 Then

If $msg = ^ERROR

Error: variable used without being declared.

The function that creates the $ProfileForm1 is below the While 1. I have tried adding Dim $ProfileForm1. It clears the error but the close function does not work . . .

What am I doing wrong?

Edit: BTW - the whole point is to close the child only. If there is a easier way to close the open GUI that generated to close function, please let me know!

Edited July 27, 2007 by Hatcheda

[GEOSoft 68]

I have added the following code to my While 1 section

CODE

While 1

$msg = GUIGetMsg()

If $msg = $UpdateProfile Then _UpdateProfile()

Select

;Check if user clicked on a close button of any of the 2 windows

Case $msg = $GUI_EVENT_CLOSE

;Check if user clicked on the close button of the child window

If $msg = $ProfileForm1 Then

MsgBox(64, "Test", "Child GUI will now close.")

;Switch to the child window

GUISwitch($ProfileForm1)

;Destroy the child GUI including the controls

GUIDelete()

;Check if user clicked on the close button of the parent window

ElseIf $msg = $ParentWin Then

MsgBox(64, "Test", "Parent GUI will now close.")

;Switch to the parent window

GUISwitch($ParentWin)

;Destroy the parent GUI including the controls

GUIDelete()

EndIf

EndSelect

WEnd

When used I get:

If $msg = $ProfileForm1 Then

If $msg = ^ERROR

Error: variable used without being declared.

The function that creates the $ProfileForm1 is below the While 1. I have tried adding Dim $ProfileForm1. It clears the error but the close function does not work . . .

What am I doing wrong?

First) have you declared $ProfileForm1 as Global?

Second) You have to create it BEFORE the While loop

[John117 1]

Solved . . .

I droped the function and did this . . .Inside of my exsisting While1

CODE

If $msg = $UpdateProfile Then

$ProfileForm1 = GUICreate("Update Profile", 780, 380, 500, 400)

GUISetState(@SW_SHOW)

While 1

$msgg = GUIGetMsg()

If $msgg = $GUI_EVENT_CLOSE Then

GUIDelete($ProfileForm1)

ExitLoop

EndIf

WEnd

EndIf

[GEOSoft 68]

Solved . . .

I droped the function and did this . . .Inside of my exsisting While1

CODE

If $msg = $UpdateProfile Then

$ProfileForm1 = GUICreate("Update Profile", 780, 380, 500, 400)

GUISetState(@SW_SHOW)

While 1

$msgg = GUIGetMsg()

If $msgg = $GUI_EVENT_CLOSE Then

GUIDelete($ProfileForm1)

ExitLoop

EndIf

WEnd

EndIf

When it works, go with it. You can always play again later.