Virtuelle Tastatur in der Inputbox

Hotline hilft. eventuell kanns ja noch jemand brauchen:

Script (am Mouseclick eines Button),
mit dem man die Virtuelle Tastatur aufrufen und auch wieder beenden kann.


Sub OnClick(ByVal Item)

Dim Eingabe
Dim objWshShell
Dim ProcessSet
Dim process

'Virtuelle Tastatur aufrufen

Set objWshShell = CreateObject("Wscript.Shell")

objWshShell.Run """C:\Programme\Gemeinsame
Dateien\Siemens\PTTouchInput\TouchInputPC.exe""",1


'Irgendwo etwas eingeben
Eingabe = InputBox("Geben Sie Ihren Namen ein")
MsgBox ("Ihre Eingabe: " & Eingabe)


'Virtuelle Tastatur wieder entfernen

Set ProcessSet =
GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Process")

For Each process In ProcessSet
Select Case process.Name
Case "TouchInputPC.ex" process.terminate
End Select
next
End Sub

Nachteilig ist, daß die Infomeldung nicht deaktiviert werden kann.
 
[ quote="hobby"]Hallo, the virtual keyboard is activated in WinCC 6, appears this with I/O the field. But as I can open the keyboard with for an input box activate thank:?:[/quote ]
 
Zurück
Oben