Eventproblem

[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

[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

[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

[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 !