- Offizieller Beitrag
Die Beta-Hilfe ist leider etwas kurz und ich bin mir da nicht sicher:
Stoppt die Programmausführung bei _IsPressed(), bis die angegebene Taste gedrückt wird ?
Ich benötige genau diese Konstellation, da der User das Ende seiner Interaktion durch Tastendruck angeben muß und danach das Script weiterlaufen soll.
Hier der betreffende Teil des Codes (siehe Zeile 14):
Spoiler anzeigen
Code
Func _report()
If $state1 = 8 Then
ControlClick($main_wdw1, "", "Button9") ; Button LabManager
EndIf
If $state2 = 8 Then
ControlClick($main_wdw2, "", "Button9") ; Button LabManager
EndIf
ControlClick("LabManager", "", "OFormSub16") ; CUSTOM SCORE SET REPORTS
;ControlClick("LabManager","", "OFormSub22") ; REPORT SELECTION ?? nötig ??
ControlCommand("LabManager", "", "OFormSub22", "SelectString", $report) ; REPORT SELECTION
Send("{ENTER}")
ControlClick("LabManager", "", "OTabControl3") ; WECHSELN ZU PATIENTENAUSWAHL
MsgBox(4096, "Hinweis", "Bitte wählen Sie den Patienten aus" & @LF & "Bestätigen Sie die Auswahl mit Taste <F9> !")
If _IsPressed("78") Then ; User hat Auswahl beendet und <F9> gedrückt
$lbl_name = ControlCommand("LabManager", "", "OKttbx2", "GetCurrentSelection", "") ; ausgewählten Patienten auslesen
$lbl_name = StringReplace($lbl_name, " ", "")
$lbl_name = StringReplace($lbl_name, ",", "_")
$lbl_date = ControlCommand("LabManager", "", "OKttbx3", "GetCurrentSelection", "") ; ausgewähltes Datum auslesen
$lbl_date = _MultiDateToNorm($lbl_date, 1) ; in String wandeln (JJJJ-MM-TT)
ControlClick("LabManager", "", "OFormSub27") ; Registerkarte REPORTS
ControlClick("LabManager", "", "OFormSub13") ; Schaltfläche PDF
ControlCommand("Create a PDF File", "", "ComboBox1", "SelectString", $pdf_target) ; Speicherort auswählen
ControlCommand("Create a PDF File", "", "Edit1", "AddString", $lbl_name & "_" & $lbl_date) ; Dateinamen eintragen
ControlClick("Create a PDF File", "", "Button2") ; Button Speichern
EndIf
EndFunc ;==>_report
Alles anzeigen