Hallo,
dank euch mal wieder.
Hab's geschafft mit WinGetPos
für alle
[autoit]
Case $btnStart
$size = WinGetPos("[active]")
MsgBox(0, "Die Koordinaten des aktuellen Fensters lauten (x, y, Breite, Höhe):", $size[0] & " " & $size[1] & " " & $size[2] & " " & $size[3])
und bei der Inputbox
[autoit]
$Input = InputBox("Info", "Bitte Info eintragen", "", "", -1, "150", $size[0] + 20, $top + 20,default,$gui)
Liebe Grüße
Ilse 
Hallo Oscar,
hier mal der kpl. Code
[autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$top=132
$left=192
$Gui = GUICreate("Info", 407, 147, $left, $top)
;$Gui = GUICreate("Info", 407, 147, 934, 432)
$btnStart = GUICtrlCreateButton("Start", 24, 16, 163, 73)
$btnStop = GUICtrlCreateButton("Stop", 216, 16, 163, 73)
$Zeit = GUICtrlCreateInput("3", 144, 96, 41, 32, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Sekunden", 72, 104, 65, 20)
$gelesen = GUICtrlCreateInput("", 296, 104, 81, 24)
$Label2 = GUICtrlCreateLabel("markiere als", 216, 104, 78, 20)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
_Anzeigen()
Case $btnStop
EndSwitch
WEnd
Func _Anzeigen()
$Input = InputBox("Info", "Bitte Info eintragen", "", "", -1, "150", $left + 20, $top + 20,default,$gui)
endfunc
[/autoit]Die Inputbox erscheint immer links!
Ilse
Hallo Micha_he ,
mußte leider wieder los.
So, habe ich probiert aber das geht leider nicht!
1. Ich starte die Gui!
die erscheint auf dem linken kleinen Monitor!
2. Ich ziehe die Gui rüber auf den 2. Monitor (Großer Monitor)
dann klicke ich den Button und die Inputbox erscheint auf dem linken Monitor!
$top=132
$left=192
$Gui = GUICreate("Main", 407, 147, $left, $top); die Main Gui diese Startet mit dem Button die Inputbox!
$Input = InputBox("Info", "Bitte Info eintragen", "", "", -1, "150", $left + 20, $top + 20,default, $gui); Im Vordergrund
Muß da nicht noch was rein?
Opt ... oder so? 
Ilse
Hallo,
also die Inputbox sieht so aus
Sorry, es ist keine neue Gui!
Die Inputbox ist nur ganu oben! (Handle)
$Gui = GUICreate("Main", 407, 147, 192, 132); die Main Gui diese Startet mit dem Button die Inputbox!
$Input = InputBox("Info", "Bitte Info eintragen", "", "", -1, "150", default,"15",default, $gui); Im Vordergrund
Abgesehen davon daß man etwas am System ändert...
Gibt es da keine Lösung, daß man die Koordinaten (je nachdem
auf welchem Monitor das Script gestartet wurde) einsetzen kann?
Ilse
Hallo,
ich habe folgendes Problem:
Ich habe eine Gui auf meinem großen Monitor.
Wenn ich auf einen Button klicke geht eine InputBox auf.
Die InputBox geht aber auf dem kleinen Monitor auf.
Gibt es da einen Befehl, der je nachdem auf welchem
Monitor die Anwendung läuft auch alle Fenster aufgehen?
Das Arbeiten ist so fast unmöglich
(Wie bei einem Tennisspiel...) 
Hoffe daß es da was gibt!
Liebe Grüße
Ilse
Heieiei.....
If Guictrlread($input) <> "" then
Vielen DANK!
Ilse
Hallo Bugfix,
kann für heute nicht mehr klar denken.
[autoit]
Das geht daneben, du mußt einfach nur " <> " verwenden
If Guictrlread($input) < then ; falsch
If Guictrlread($input) <> then ; geht auch nicht
If Guictrlread($input) "<>" then ; geht auch nicht
Kannst du mir die Zeile auflösen?
Ilse
Hallo,
werde bald verrückt vom probieren.
Ich muß abfragen ob ein Feld einen Inhalt hat
Also wenn das Feld einen Inhalt hat (nicht leer ist, dann mach was....)
[autoit]
If Guictrlread($input)= not "" then
ControlSetText....
else
Hoffe auf Erlösung...
Grüße
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
[/autoit][autoit][/autoit][autoit]$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()
[/autoit][autoit][/autoit][autoit]While $diff<=2000
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
[/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]$diff = TimerDiff($timestamp)
Sleep (4000)
MsgBox(0,"",Guictrlread($input),1)
GUICtrlSetData($input,"")
WinActivate("Texteingabe")
wend
WEnd
[/autoit][autoit][/autoit][autoit][/autoit]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
[/autoit][autoit][/autoit][autoit]$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()
[/autoit][autoit][/autoit][autoit]While $diff<=2000
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
[/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit]$diff = TimerDiff($timestamp)
Sleep (4000)
MsgBox(0,"",Guictrlread($input),1)
GUICtrlSetData($input,"")
WinActivate("Texteingabe")
wend
[/autoit][autoit][/autoit][autoit][/autoit][autoit]WEnd
[/autoit][autoit][/autoit][autoit][/autoit]EDIT: Bis auf das Beenden habe ich es geschafft!
Ilse
Hallo,
merci, aber der Timer mit dem Loop macht mir noch Probleme.
[autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$diff = 0
[/autoit][autoit][/autoit][autoit]$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()
[/autoit][autoit][/autoit][autoit]While $diff<=4000
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$diff = TimerDiff($timestamp)
;_Anzeigen()
[/autoit][autoit][/autoit][autoit]WEnd
[/autoit][autoit][/autoit][autoit];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 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
[autoit][/autoit][autoit][/autoit][autoit]#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 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
[autoit][/autoit][autoit][/autoit][autoit]_Anzeigen()
[/autoit][autoit][/autoit][autoit]Func _Anzeigen()
[/autoit][autoit][/autoit][autoit]For $i = 1 to 10
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Eintrag","Bitte angeben","Ablage"," 50","50","50","50","50","4")
[/autoit][autoit][/autoit][autoit];If $sInputBoxAnswer="" Then $sInputBoxAnswer = "Ablage"
[/autoit][autoit][/autoit][autoit]MsgBox(0,"","Angabe aus der Inputbox : " & GuiCtrlRead ($sinputboxanswer),2)
[/autoit][autoit][/autoit][autoit]; wird etwas anderes eingegeben , dann soll nach dem Timeout der andere Text ausgelesen werden.
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Select
Case @Error = 0 ;OK
Case @Error = 1 ;Cancel
[/autoit][autoit][/autoit][autoit]Case @Error = 2 ;Timeout
[/autoit][autoit][/autoit][autoit]Case @Error = 3 ;InputBox failed to open
[/autoit][autoit][/autoit][autoit]EndSelect
next
EndFunc
[/autoit][autoit][/autoit][autoit][/autoit]Probiere einfach mal nur einen Text einzutragen!
Der sollte dann kurz angezeigt werden.
Liebe Grüße
Ilse
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
[autoit]
_Anzeigen()
Func _Anzeigen()
[/autoit][autoit][/autoit][autoit]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
[/autoit][autoit][/autoit][autoit]; wird etwas anderes eingegeben , dann soll nach dem Timeout der andere Text ausgelesen werden.
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Select
Case @Error = 0 ;OK
Case @Error = 1 ;Cancel
[/autoit][autoit][/autoit][autoit]Case @Error = 2 ;Timeout
[/autoit][autoit][/autoit][autoit]Case @Error = 3 ;InputBox failed to open
[/autoit][autoit][/autoit][autoit]EndSelect
[/autoit][autoit][/autoit][autoit][/autoit][autoit]EndFunc
[/autoit][autoit][/autoit][autoit][/autoit]Wie kann man das lösen?
Habe diverse Varianten getestet, geht immer nur nach dem klicken!
Liebe Grüße
Ilse
Guten Morgen Misterspeed,
oh super....du bist mal wieder mein Retter.
1000 x DANKE an den Meister.
Ilse
Hallo Stoani,
ich krieg das nicht hin.
Hier mal eine Fassung mit Kommentaren
[autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 681, 208, 663, 194)
$Pages = GUICtrlCreateButton("Blättern", 24, 24, 219, 169)
$Button1 = GUICtrlCreateButton("Text 1", 312, 24, 75, 25)
GUICtrlSetState($Button1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("Text 2", 312, 56, 75, 25)
GUICtrlSetState($Button2, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("Text 3", 312, 88, 75, 25)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUISetState(@SW_SHOW)
$1 = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pages
GUICtrlSetState($Button1, $GUI_Enable)
GUICtrlSetState($Button2, $GUI_Enable)
GUICtrlSetState($Button3, $GUI_Enable)
Anzeigen(); Seiten werden durchgeblättert
Case $Button1
Button1();beim Klicken soll gestoppt werden und Funktion starten
;danach läuft die Blätterfunktion weiter!
Case $Button2;beim Klicken soll gestoppt werden und Funktion starten
Button2()
Case $Button3
Button3()
EndSwitch
WEnd
Func Anzeigen()
Do
$1 += 1
Sleep (1000)
ToolTip($1,600,300,$1)
Until GUIGetMsg() = $Button1
endfunc
[/autoit][autoit][/autoit][autoit]Func Button1()
Msgbox(0,"","Code Button 1")
;Code wird gestartet
;wenn fertig
;Blätterfunktion macht weiter
EndFunc
Func Button2()
Msgbox(0,"","Code Button 2")
EndFunc
Func Button3()
Msgbox(0,"","Code Button 3")
EndFunc
Bin mit deiner Version leider nicht ans Ziel gekommen!
Liebe Grüße
Ilse
Hallo Protex,
hier nochmal der abgeänderte Code!
[autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$1 = 1
$Form3 = GUICreate("Form3", 603, 116, 302, 218)
$Button1 = GUICtrlCreateButton("Blättern", 112, 24, 177, 65)
$Button2 = GUICtrlCreateButton("Code 1", 312, 24, 177, 65)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Button1,"Gestartet")
Do
$1 += 1
ToolTip($1,100,100,$1) ; In die Schleife schreibst du dann deine Anweisungen die er machen soll
Until GUIGetMsg() = $Button2 or GUIGetMsg() = $Button1
Button2()
EndSwitch
WEnd
Func Button2()
MsgBox(0,"Code Button 2","Code wird von Button 2 ausgeführt!")
ControlClick("Form3","","[CLASS:Button; INSTANCE:1]","left")
endfunc
1. Ich klicke auf Blättern (startet....)
2. Ich klicke auf den Code Button (Stop, Code....weiter)
3. Klicke ich aber auf Blättern erneut, sollte angehalten werden.
Das Problem
Ich kann nicht mehrere Buttons abarbeiten
[autoit]
Until GUIGetMsg() = $Button2 or GUIGetMsg() = $Button1
Stell dir folgendes vor:
1. Ich habe einen Button (Blättern)
2. Es gibt etliche andere Buttons mit Code!
Sobald wenn irgendein andere Button angeklickt wird
(wie in diesem Beispiel) soll die Blätterfunktion anhalten
und der Code des Buttons ausgeführt werden.
also wie kann man den Loop UNTIL
Until GUIGetMsg() = $Button2 or GUIGetMsg() = $Button1
auf diese Ereignisse reagieren lassen?
Liebe Grüße
Ilse
Guten Morgen Schnitzel,
danke für den erlösenden Tipp!
Das klappt jetzt, aber der Code des Buttons wird noch nicht direkt ausgeführt!
Erst nach einem erneuten Klick!
Habe das probiert
[autoit]
Until GUIGetMsg() = $Button1 or GUIGetMsg() = $Button2
If GUIGetMsg() = $Button2 Then ; also wenn die Meldung kommt, dann...
MsgBox(0,"","Klickt kommt an")
;tu was...
endif
Weißt du wie man das umgehen kann?
Die Msgbox erscheint gar nicht!
Grüße
Ilse
Hallo,
ich habe leider noch ein kleines Problem.
Ich versuche schon eine ganze Zeit das zu lösen
Meine Frage:
Kann man den Loop auch mit einer anderen Schaltfläche
beenden, die dann einen bestimmten Code ausführt? (wenn fertig, dann wieder Start...)
Also so:
Klick auf
Blättern startet
Klickt man auf
Button 2 Blättern wird angehalten Code v. Button 2 wird ausgeführt
wenn fertig
Blättern geht weiter
Beispiel
[autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$1 = 1
$Form3 = GUICreate("Form3", 603, 116, 302, 218)
$Button1 = GUICtrlCreateButton("Blättern", 112, 24, 177, 65)
$Button2 = GUICtrlCreateButton("Code 1", 312, 24, 177, 65)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Button1,"Gestartet")
Do
$1 += 1
ToolTip($1,100,100,$1) ; In die Schleife schreibst du dann deine Anweisungen die er machen soll
Until GUIGetMsg() = $Button1
GUICtrlSetData($Button1,"Beendet")
Sleep(1500)
GUICtrlSetData($Button1,"Blättern")
EndSwitch
WEnd
Ich habe versucht ein OR einzubauen
[autoit]
Until GUIGetMsg() = $Button1 or Button2
das ging leider nicht.
Habe auch mit ControlClick probiert...
Liebe Grüße
Ilse
Hallo zusammen,
konnte mich leider jetzt erst wieder melden.
Erstmal mein Großes Lob an alle.
Tolle Beispiele.
Klappt alles SUPER!...
DANK EUCH!
Liebe Grüße
Ilse
