Inputbox Problem

Hallo,

ich habe folgendes Problem bei einer Inputbox:

Wenn die Inputbox eine Defaultwert hat, dann soll dieser
nach einem Timeout ausgegeben werden.
Der Eintrag erscheint aber in der Msgbox nur wenn
auf OK geklickt wurde.

Mein Code

_Anzeigen()

Func _Anzeigen()

If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Eintrag","Bitte angeben","Ablage"," 50","50","50","50","50","6")

MsgBox(0,"",$sInputBoxAnswer) ;hier sollte nach dem Timeout "Ablage" erscheinen

; wird etwas anderes eingegeben , dann soll nach dem Timeout der andere Text ausgelesen werden.

Select
Case @Error = 0 ;OK

Case @Error = 1 ;Cancel

Case @Error = 2 ;Timeout

Case @Error = 3 ;InputBox failed to open

EndSelect

EndFunc

Wie kann man das lösen?
Habe diverse Varianten getestet, geht immer nur nach dem klicken!

Liebe Grüße
Ilse

Hallo Greek,
Hallo Stinger 2k

hatte ich schon probiert. Geht nicht!
Der Ablauf sollte so sein.

Also:

1. Inputbox erscheint mit Ablage - Wert wird nach Timeout übernommen.
2. Inputbox ein anderer Wert wird eingegeben - Wert wird nach Timeout übernommen.

Das sollte alles ohne die OK Buttons funktionieren.

Hier nochmal der Code

_Anzeigen()

Func _Anzeigen()

For $i = 1 to 10
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer

$sInputBoxAnswer = InputBox("Eintrag","Bitte angeben","Ablage"," 50","50","50","50","50","4")

;If $sInputBoxAnswer="" Then $sInputBoxAnswer = "Ablage"

MsgBox(0,"","Angabe aus der Inputbox : " & GuiCtrlRead ($sinputboxanswer),2)

; wird etwas anderes eingegeben , dann soll nach dem Timeout der andere Text ausgelesen werden.

Select
Case @Error = 0 ;OK

Case @Error = 1 ;Cancel

Case @Error = 2 ;Timeout

Case @Error = 3 ;InputBox failed to open

EndSelect
next

EndFunc

Probiere einfach mal nur einen Text einzutragen!
Der sollte dann kurz angezeigt werden.

Liebe Grüße
Ilse

Hallo Misterspeed,

habe eine Gui fertig!
Kannst du mir helfen wie ich diese Gui
in der Funktion mit Timeout aufrufen kann?

D.h. die Gui muß ja dann auch nach einem Timeout schliessen.

Bin im Moment etwas verwirrt.
Dachte das wäre einfacher zu lösen.

Meine Gui

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$TextGui = GUICreate("Texteingabe", 375, 125, 304, 156)
$input = GUICtrlCreateInput("", 24, 40, 329, 24)
$Label1 = GUICtrlCreateLabel("Bitte den Text eingeben", 24, 16, 145, 20)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

ein ControlClick auf ok wäre das auch "professionell"?

Liebe Grüße
Ilse

Hallo,

merci, aber der Timer mit dem Loop macht mir noch Probleme.

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$diff = 0

$TextGui = GUICreate("Texteingabe", 375, 125, 304, 156)
$input = GUICtrlCreateInput("", 24, 40, 329, 24)
$Label1 = GUICtrlCreateLabel("Bitte den Text eingeben", 24, 16, 145, 20)
GUISetState(@SW_SHOW)

$timestamp = TimerInit()

While $diff<=4000
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
$diff = TimerDiff($timestamp)

;_Anzeigen()

WEnd

;For $i = 1 to 10
MsgBox(0,"",Guictrlread($input),2)
;next

Msgbox zeigt an, sollte aber wieder verschwinden
und die Gui sollte angezeigt werden.

Da hängt es noch...

Grüße
Ilse

Hallo,

läuft jetzt.

2 Probleme habe ich noch:

1. Wie kann ich das ganze schliessen! (komme da nicht wieder raus)
2. Wie kann ich den Fokus erneut auf das Feld setzen und das Feld leeren?

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$diff = 0

$TextGui = GUICreate("Texteingabe", 375, 125, 304, 156)
$input = GUICtrlCreateInput("", 24, 40, 329, 24)
$Label1 = GUICtrlCreateLabel("Bitte den Text eingeben", 24, 16, 145, 20)
GUISetState(@SW_SHOW)

$timestamp = TimerInit()

While $diff<=2000
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch

While 1

$diff = TimerDiff($timestamp)
Sleep (4000)
MsgBox(0,"",Guictrlread($input),1)

GUICtrlSetData($input,"")
WinActivate("Texteingabe")

wend

WEnd

EDIT: Bis auf das Beenden habe ich es geschafft!

Ilse

Hallo Greenhorn,

merci für deine Variante.

Das hier läuft soweit
bis auf das BEENDEN, das klappt noch nicht!

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$diff = 0

$TextGui = GUICreate("Texteingabe", 375, 125, 304, 156)
$input = GUICtrlCreateInput("", 24, 40, 329, 24)
$Label1 = GUICtrlCreateLabel("Bitte den Text eingeben", 24, 16, 145, 20)
GUISetState(@SW_SHOW)

$timestamp = TimerInit()

While $diff<=2000
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch

While 1

$diff = TimerDiff($timestamp)
Sleep (4000)
MsgBox(0,"",Guictrlread($input),1)

GUICtrlSetData($input,"")
WinActivate("Texteingabe")
wend

WEnd

Grüße
Ilse