SendKeys #

Simuliert Tastatureingaben und führt Programmfunktionen aus. Die Methode verwendet das EULANDA-Textbausteinformat mit zusätzlichen Steuersequenzen.

Client.SendKeys Keys

Parameter #

Parameter	Typ	Beschreibung
`Keys`	String	Tastenkombinationen und Befehle

Steuersequenzen #

Sequenz	Beschreibung
`{SPEAK Text}`	Text-to-Speech-Ausgabe
`{EXEC Programm}`	Externes Programm starten
`{FOCUS Fenstertitel}`	Fenster in den Vordergrund bringen

Zeilenumbrüche können mit vbCr und vbLf eingefügt werden.

Beispiel #

Text in Notepad einfügen:

Dim sql, rs, Makro

sql = "SELECT Anzahl = COUNT(*) FROM Adresse"
Set rs = Client.ExecuteSql(sql, "SQL Ausführung")

Makro = "{EXEC NOTEPAD}{FOCUS Unbenannt}" & _
        "Das ist eine Textübergabe in das Notepad..." & _
        vbCr & vbLf & _
        "Es sind aktuell " & CStr(rs.Fields("Anzahl").Value) & _
        " Adressen in der Datenbank vorhanden"

Client.SendKeys Makro