buttons don't disapair

[remco]

I made a gui create box and it pops up with the buttons but I can press all I want on the buttons nothing happens.

can someone tell me what I do wrong. ?

and yes I'm a noob and trying to figure this one out for over 4 days by now

al it does is give me the gui and continues without waiting for the user input

it's a big script

but here is the portion I am strugling with

;################################

;### define country computer belongs to

;################################

If $varCompCountry <> "BE" And $varCompCountry <> "DE" And $varCompCountry <> "NL" then getCountry()

;EndIf

Func getCountry()

Local $msg

GUICreate("Select country", 400, 280)

$button_BE = GUICtrlCreateButton("BE", 30, 20, 50, 40)

$button_DE = GUICtrlCreateButton("DE", 80, 20, 50, 40)

$button_NL = GUICtrlCreateButton("NL",130, 20, 50, 40)

GUISetState()

while 1

$msg = GUIGetMsg()

sleep(50)

Select

Case $msg = $GUI_EVENT_CLOSE

Exit

Case $msg = $button_BE

return $varCompCountry = "BE"

ExitLoop

Case $msg = $button_DE

return $varCompCountry = "DE"

ExitLoop

Case $msg = $button_NL

return $varCompCountry = "NL"

ExitLoop

EndSelect

WEnd

EndFunc

[GEOSoft]

If NOT StringInStr("BE|DE|NL|", $varCompCountry & "|") Then $sRtn = getCountry()
MsgBox(0, "Result", $sRtn)

[remco]

If NOT StringInStr("BE|DE|NL|", $varCompCountry & "|") Then $sRtn = getCountry()
MsgBox(0, "Result", $sRtn)

?? I still have the problem that the gui doesn`t disapear after it`s called upon.

[martin]

?? I still have the problem that the gui doesn`t disapear after it`s called upon.

You need to delete the gui in your function before you return from it. This is one way

#include <guiconstantsEx.au3>
ConsoleWrite(Getcountry() & @CRLF)
Func getCountry()
    Local $msg,$Result
    Local $G1 = GUICreate("Select country", 400, 280)
    $button_BE = GUICtrlCreateButton("BE", 30, 20, 50, 40)
    $button_DE = GUICtrlCreateButton("DE", 80, 20, 50, 40)
    $button_NL = GUICtrlCreateButton("NL", 130, 20, 50, 40)
    GUISetState()
    While 1
        $msg = GUIGetMsg()
       ;Sleep(50); better not have a sleep in a loop with GuiGetMsg as you can miss events IMO
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $button_BE
                $Result = "BE"
                ExitLoop
            Case $msg = $button_DE
                $Result = "DE"
                ExitLoop
            Case $msg = $button_NL
                $Result = "NL"
                ExitLoop
        EndSelect
    WEnd
    GuiDelete($G1)
    Return $result
EndFunc  ;==>getCountry