GUIOnEventMode problem

[baoquocphan]

I'm using GUIOnEventMode like this (just example):

Opt("GUIOnEventMode",1)
$hMainForm = GUICreate( "Main form", 580, 320)
$hSubFormButton = GUICtrlCreateButton( "Sub Form", 10, 10, 100, 100)
GUICtrlSetOnEvent(-1,"SubForm")
GUISetState(@SW_SHOW,$hMainForm)
While 1
    Sleep(10)
WEnd
; ...

Func SubForm()
        $hSubForm=GUICreate( "Sub Form", 100, 100)
        GUISetState(@SW_SHOW,$hSubForm)
EndFunc

But if I click "Sub Form" Button (SubForm appears) and then I click it again, a duplicate SubForm appears. 

I don't want a duplicate SubForm, so there is a way to solve this problem? 

Thanks a lot!

PS: srr, I'm newbie and my English is bad

[Melba23]

baoquocphan,

One solution would be to disable the button until the subform has been deleted:

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Global $hSubForm = 9999

$hMainForm = GUICreate("Main form", 580, 320)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Main_Exit")
$hSubFormButton = GUICtrlCreateButton("Sub Form", 10, 10, 100, 100)
GUICtrlSetOnEvent(-1, "SubForm")
GUISetState(@SW_SHOW, $hMainForm)

While 1
    Sleep(10)
WEnd

Func SubForm()
    GUICtrlSetState($hSubFormButton, $GUI_DISABLE)
    $hSubForm = GUICreate("Sub Form", 100, 100)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Sub_Delete")
    GUISetState(@SW_SHOW, $hSubForm)
EndFunc   ;==>SubForm

Func _Sub_Delete()
    GUIDelete($hSubForm)
    $hSubForm = 9999
    GUICtrlSetState($hSubFormButton, $GUI_ENABLE)
EndFunc

Func _Main_Exit()
    GUIDelete($hMainForm)
    Exit
EndFunc

Please ask if anything is unclear.

M23

[baoquocphan]

baoquocphan,

One solution would be to disable the button until the subform has been deleted:

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Global $hSubForm = 9999

$hMainForm = GUICreate("Main form", 580, 320)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Main_Exit")
$hSubFormButton = GUICtrlCreateButton("Sub Form", 10, 10, 100, 100)
GUICtrlSetOnEvent(-1, "SubForm")
GUISetState(@SW_SHOW, $hMainForm)

While 1
    Sleep(10)
WEnd

Func SubForm()
    GUICtrlSetState($hSubFormButton, $GUI_DISABLE)
    $hSubForm = GUICreate("Sub Form", 100, 100)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Sub_Delete")
    GUISetState(@SW_SHOW, $hSubForm)
EndFunc   ;==>SubForm

Func _Sub_Delete()
    GUIDelete($hSubForm)
    $hSubForm = 9999
    GUICtrlSetState($hSubFormButton, $GUI_ENABLE)
EndFunc

Func _Main_Exit()
    GUIDelete($hMainForm)
    Exit
EndFunc

Please ask if anything is unclear.

M23

 

Thanks, M23. Now I know the method.

But I don't understand the line $hSubForm=9999 

Is it use to reset the $hSubForm variable?

[michaelslamet]

Thanks, M23. Now I know the method.

But I don't understand the line $hSubForm=9999 

Is it use to reset the $hSubForm variable?

 

You can assign any number/string to that variable, it will work.

For example, try to change it to $hSubForm="abc"

it will work.

But if we dont declare and assign a value on it, it will error

[baoquocphan]

You can assign any number/string to that variable, it will work.

For example, try to change it to $hSubForm="abc"

it will work.

But if we dont declare and assign a value on it, it will error

Thank you, I've got it.

[Melba23]

baoquocphan,

The $hSubForm variable is referenced in 2 separate functions - so it needs to be in Global scope so it can be seen inside both of them. See the Variables - using Global, Local, Static and ByRef tutorial in the Wiki for more information on scoping in AutoIt. When you declare Global variables to hold handles and ControlIDs it is usually a good idea to use placeholder values - leaving them blank can lead to problems when AutoIt accesses them and they have not been set. This is more likely to be true in MessageLoop mode, but it is a good habit to get into.

M23