GuiCreateImput Problem

[superbosu]

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $Button_1, $Button_2, $msg, $set1
    GUICreate("BOSU TM", 300, 460) ; will create a dialog box that when displayed is centered

    Opt("GUICoordMode", 3)
    $Button_1 = GUICtrlCreateButton("Import", 50, 280, 100)
    $Button_2 = GUICtrlCreateButton("GES", 50, 320, 100)
    $set1 = GUICtrlCreateInput("CR", 180, 281, 70, 23)
    GUISetState()      ; will display an  dialog box with 2 button

    ; Run the GUI until the dialog is closed
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button_1
                $set1 = GUICtrlRead($set1, 0)
                MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$set1' & @lf & @lf & 'Return:' & @lf & $set1) ;### Debug MSGBOX


            Case $msg = $Button_2
                MsgBox(0, 'Testing', 'Button 2 was pressed')    ; Will demonstrate Button 2 being pressed
        EndSelect
    WEnd
EndFunc   ;==>Example

Hi all, I have a probelm with my simple code.....

This application works only the first time

if I write something on the imput box after click on button 1 again, the msg is always 0 .... why?

Who can help me?

Edited January 25, 2011 by superbosu

[kaotkbliss]

You are re-declaring $set1 so it is no longer the handle for the control

simply change

$set1 = GUICtrlRead($set1, 0)

to

$set2 = GUICtrlRead($set1, 0)

and

MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$set1' & @lf & @lf & 'Return:' & @lf & $set1)

to

MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$set1' & @lf & @lf & 'Return:' & @lf & $set2)

and add $set2 to your local variables

Edited January 25, 2011 by kaotkbliss

[superbosu]

You are re-declaring $set1 so it is no longer the handle for the control

simply change

$set1 = GUICtrlRead($set1, 0)

to

$set2 = GUICtrlRead($set1, 0)

and

MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$set1' & @lf & @lf & 'Return:' & @lf & $set1)

to

MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$set1' & @lf & @lf & 'Return:' & @lf & $set2)

and add $set2 to your local variables

Tnx it works