Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Aufruf der Win10-Touchscreenkalibrierung
Autor: fabishop
Datum: 24.11.19 19:49
Hallo Gemeinde, aus meiner VBA-Anwendung möchte ich per klick-Ereignis die Touchscreen-Kalibrierung im Win10 öffnen. Das funktioniert im Windows selbst über folgende Varianten: 1. Shell-Aufruf: shell:::{80F3F1D5-FECA-45F3-BC32-752C152E456E} oder 2. "C:\Windows\System32\tabcal.exe" UserLincal DeviceKind=touch DisplayID=\\.\DISPLAY1 Wie kann ich eine der beiden Möglichkeiten direkt aus VBA heraus aufrufen? Danke für Eure Hilfe. FH

Re: Aufruf der Win10-Touchscreenkalibrierung
Autor: Dieter (Moderator)
Datum: 25.11.19 09:57
Versuche es mal mit der ShellExcute API Funktion: ShellExecute-Funktion _________________________ Professionelle Entwicklerkomponenten www.tools4vb.de

Re: Aufruf der Win10-Touchscreenkalibrierung
Autor: fabishop
Datum: 25.11.19 14:26
Hallo Dieter, habe das ganze mal so eingebaut: Private Sub Bezeichnungsfeld427_Click() Dim Retval As Long Retval = ShellExecute(Me.hwnd, "C:\Windows\System32\tabcal.exe", "UserLincal DeviceKind=touch DisplayID=\\.\DISPLAY1", SW_SHOWNORMAL) Select Case Retval Case SE_ERR_NOASSOC MsgBox "Datei ist nicht Assizoiert", vbInformation, "Fehler" Exit Sub Case SE_ERR_PNF MsgBox "Pfad wurde nicht gefunden", vbInformation, "Fehler" Exit Sub Case SE_ERR_FNF MsgBox "Datei wurde nicht gefunden", vbInformation, "Fehler" Exit Sub Case 8, 26, 32, 28, 29, 30, 27, 5, 11 ' alle anderen Fehler Exit Sub End Select End Sub Allerdings bekomme ich beim Aufruf folgende Fehlermeldung: Fehler beim Kompilieren: Argument ist nicht optional >bezieht sich auf ShellExecute Teste ich das ganze mit der beispielhaften Notepad.exe, ist alles ok. Hast du eine Idee? Gruß FH

Re: Aufruf der Win10-Touchscreenkalibrierung
Autor: Dieter (Moderator)
Datum: 25.11.19 14:41
Du hast da den "lpOperation" und "lpDirectory" Parameter vergessen anzugeben: Retval = ShellExecute(Me.hwnd, "open", "C:\Windows\System32\tabcal.exe", _ "UserLincal DeviceKind=touch DisplayID=\\.\DISPLAY1", "", SW_SHOWNORMAL) _________________________ Professionelle Entwicklerkomponenten www.tools4vb.de

Re: Aufruf der Win10-Touchscreenkalibrierung
Autor: fabishop
Datum: 25.11.19 15:02
Oh, das stimmt. Korrigiert habe ich, aber jetzt gibt es den Fehler, daß die Datei nicht gefunden wurde.

Re: Aufruf der Win10-Touchscreenkalibrierung
Autor: Dieter (Moderator)
Datum: 25.11.19 15:19
Kann es sein, dass du keine Berechtigung hast, auf die Datei `zuzugreifen? _________________________ Professionelle Entwicklerkomponenten www.tools4vb.de

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen