Can't find the error :(

[eagle51]

Hello,

hope you guys can help me

Here is the code...

expandcollapse popup

$ParentWin = GUICreate ("Bitte treffen Sie Ihre Auswahl", $gWidth, $gHeight)
$ParentWin_Pos = WinGetPos($ParentWin, "")


; **** Erstellen von Menüs, Buttons etc.****
$m_men1 = GuiCtrlCreateMenu ("Funktionenen")
$m_men2 = GuiCtrlCreateMenu ("?")
    
$m_men1_pataufn = GuiCtrlCreateMenuitem ("Create",$m_men1)
$m_men1_patstor = GuiCtrlCreateMenuitem ("Selete",$m_men1)
$m_men1_line = GuiCtrlCreateMenuitem ("",$m_men1)
$m_men1_beenden = GuiCtrlCreateMenuitem ("Close",$m_men1)

$m_men2_hotkeys = GuiCtrlCreateMenuitem ("Hotkeys",$m_men2)
$m_men2_hinweise = GuiCtrlCreateMenuitem ("Info",$m_men2)
$m_men2_line = GuiCtrlCreateMenuitem ("",$m_men2)
$m_men2_info = GuiCtrlCreateMenuitem ("?",$m_men2)

GUICtrlCreateGroup ("Please choose an option...", 15, 10, 270, 120)

$b_pataufn = GUICtrlCreateButton ("create", 25, 35, 250, 20)
$b_patstor = GUICtrlCreateButton ("delete", 25, 60, 250, 20)
$b_exit = GUICtrlCreateButton ("Beenden", 25, 100, 250, 20)


GUISwitch($ParentWin)
GUISetState ()


    While 1
        $msg = GUIGetMsg()
            If $msg = $GUI_EVENT_CLOSE or $msg = $m_men1_beenden or $msg = $b_exit Then
                        GUIDelete()
                        Exit
            EndIf
            
            If $msg = $m_men1_patstor or $msg = $b_patstor Then     
                $ChildWin = GUICreate("delete", 275, 130, $ParentWin_Pos[0] + 50, $ParentWin_Pos[1] + 50)
                                        GUICtrlCreateLabel("Please enter a number (-1 for all).", 5, 10, 300, 50)
                        $stor_anzahl =GuiCtrlCreateInput("",5,70,200,20)
                        $b_s_ok =GUICtrlCreateButton("Ok", 5, 100, 70, 20)
                        $b_s_abr =GUICtrlCreateButton("Abbrechen", 90, 100, 70, 20)
                                                                                                                             GUISetState(@SW_SHOW)
                            If GUIGetMsg() = $b_s_ok Then
                                If $stor_anzahl = 1 Then
                                                                                                                                 ; code......
                                                                                                                                Endif
                                If $stor_anzahl = "-1" Then
                                ;code....
                                Endif

What the script does:

In the begining I create the main window where the user will be asked what he wants to do.

If he click on "delete" a new window will op up (child) and the user will be asked to enter a number in an inputbox.

Then he have to click on okey and the program should do the code If... =1 ... If = 2... and so on.

In the main menu all buttons etc. are working.

But if the child-window is active and the user click on "abbrechen" or "ok" nothing happens.

can someone help me please to find the error?

Thanks,

eagle51

[CoePSX]

Look at this line of code:

If $stor_anzahl = 1 ThenoÝ÷ Ù©©²Ú+j|ÚX¬herí®g¢Ö§ºfÞ­*2¢é®²ÚÞiØ­¶¶+wöËÚç¥G­+ºÚ"µÍYÕRPÝXY
    ÌÍÜÝÜØ[Z
HHH[

[eagle51]

Look at this line of code:

If $stor_anzahl = 1 ThenoÝ÷ Ù©©²Ú+j|ÚX¬herí®g¢Ö§ºfÞ­*2¢é®²ÚÞiØ­¶¶+wöËÚç¥G­+ºÚ"µÍYÕRPÝXY
    ÌÍÜÝÜØ[Z
HHH[oÝ÷ Ûú®¢×zYhjwm©ä±ú+éixºØ­²)ev¬mÂäN¡×¢²z0jëh×6
                    $stor_anzahl =GuiCtrlCreateInput("",5,70,200,20)
                        $b_s_ok =GUICtrlCreateButton("Ok", 5, 100, 70, 20)
                        $b_s_abr =GUICtrlCreateButton("Abbrechen", 90, 100, 70, 20) 
                            GUISetState(@SW_SHOW)
                            GUISwitch($ChildWin)
                            If GUIGetMsg() = $b_s_ok Then
                                If GUICtrlRead($stor_anzahl) = 1 Then

the other part is equal.

But nothing happens if I click on the "ok" button.

Bye bye

eagle51

Edited January 19, 2007 by eagle51

[Cyberworld]

If GUIGetMsg() = $b_s_ok Then

Change the line above to If $msg = $b_s_ok Then ...

[Zedna]

Hello and thanks for helping,

but it sill doesn't work

The code is now:

$stor_anzahl =GuiCtrlCreateInput("",5,70,200,20)
                        $b_s_ok =GUICtrlCreateButton("Ok", 5, 100, 70, 20)
                        $b_s_abr =GUICtrlCreateButton("Abbrechen", 90, 100, 70, 20) 
                            GUISetState(@SW_SHOW)
                            GUISwitch($ChildWin)
                            If GUIGetMsg() = $b_s_ok Then
                                If GUICtrlRead($stor_anzahl) = 1 Then   
oÝ÷ ÚØ^¢Ø^®«¶+ªæ¥ëg¢ØbZ¦§²'ÈrXíꮢÚ$ªê-nëm¢pry¼y¨%{ªê-xéåÉÊ'qêmjëh×6
  $stor_anzahl =GuiCtrlCreateInput("",5,70,200,20)
                        $b_s_ok =GUICtrlCreateButton("Ok", 5, 100, 70, 20)
                        $b_s_abr =GUICtrlCreateButton("Abbrechen", 90, 100, 70, 20) 
                            GUISetState(@SW_SHOW)
                            GUISwitch($ChildWin)
                            If GUIGetMsg() = $b_s_ok Then
                                If GUICtrlRead($stor_anzahl) = 1 Then   
   While 1
        $msg = GUIGetMsg()
            If $msg = $GUI_EVENT_CLOSE or $msg = $b_s_ok  Then
                  If GUICtrlRead($stor_anzahl) = 1 Then   ...
                  GUIDelete()
            EndIf
  WEnd

Or you can use GUIGetMsg(1) ; advanced - see HelpFile

[AU3Newbie]

why not use switch and case instead of your if-sentences?