Seite 2 von 2
Re: Eventproblem
Verfasst: 15.12.2011 16:22
von ts-soft
Deinem Code fehlen sämtliche Proceduren, die ein Fenster erstellen, somit wirst Du mit meinem Code so
vorlieb nehmen müssen, oder aber meinen Vorschlag, nach weiteren Codes zur Fensterbehandlung hier
suchen müssen.
Anscheinend nutzt Du auch einen Visuellen Designer, der trägt auch nicht zum Verständnis der Materie bei,
ich halte es für vernünftiger, erst mal Deine Fenster zu Fuß zu erstellen.
Auf
http://purearea.net findest Du unter Turorials eines namens "Event-Handling" vielleicht fängste damit an
(könnte sein, das die Beispiele nicht mehr lauffähig sind, aber bei der Fehlersuche lernt man am meisten)
Gruß
Thomas
Re: Eventproblem
Verfasst: 15.12.2011 22:49
von Schlaubi
Hi,
so, ich hab nun ein wenig was gelesen, und soweit, denke ich, auch verstanden. Das Problem ist trotzdem noch nicht gelöst. Ich konnte es soweit einschränken.
Die Checkbox kann ich dauernd klicken, wie es sein soll, soweit in der Repeat Schleife kein #PB_Program_Wait vorkommt. Gut das #PB_Program_Wait hält das ganze Programm an, so dass es nicht mal mein Ändern der CheckBox entgegen nimmt. Das soll aber natürlich nicht sein. Ich will mehrere Befehle nacheinander ausführen, welche ich mit #PB_Program_Wait trenne. Währenddessen soll aber das Fenster nicht zum Stillstand kommen, sondern aktiv bleiben.
Wie kann ich das ändern??
Bin für jede Hilfe sehr dankbar.
Daniel
Re: Eventproblem
Verfasst: 15.12.2011 23:00
von RSBasic
@Schlaubi
Wenn du eine Anwendung ausführen möchtest, die du kontrollieren möchtest, ob die ausgeführte Anwendung noch läuft, aber ohne, dass dein eigenes Programm dadurch gestoppt wird, dann kannst du auch mit Hilfe von "ProgramRunning()" (siehe PB-Hilfe) überprüfen und du kannst auf "#PB_Program_Wait" verzichten. Dann läuft dein Programm ganz normal weiter und die externe Anwendung wird normal ausgeführt.
Beispiel:
Code: Alles auswählen
EnableExplicit
Define ProgramID
Define ProgramRunningResult
ProgramID = RunProgram("notepad.exe","","",#PB_Program_Open)
Repeat
ProgramRunningResult = ProgramRunning(ProgramID)
If ProgramRunningResult
Debug "Anwendung läuft noch..."
Else
Debug "Anwendung wurde beendet."
EndIf
Delay(1000)
Until ProgramRunningResult=0
Re: Eventproblem
Verfasst: 16.12.2011 09:17
von Schlaubi
Das ist es, vielen Dank.
Jetzt funktioniert auch die CheckBox wie sie soll.
Danke und schon mal frohe Weihnachten, sollte man sich nicht mehr hören bzw. schreiben !