Nutze Windows 10.
Hat jemand eine Idee.....
'--------------------------------------------------------------------------
' Module : UserForm1
' Author : Case (Ralf Stolzenburg)
' Date : 25.04.2013
' Purpose : On Screen Keyboard - OSK - Bildschirmtastatur...
'--------------------------------------------------------------------------
Option Explicit
Private Sub CommandButton1_Click()
Shell "wmic Process where ""name='osk.exe'"" call terminate", vbHide
Unload Me
End Sub
Private Sub TextBox1_Enter()
TextBox1.Text = ""
ShellAndWait "cmd /c osk"
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Shell "wmic Process where ""name='osk.exe'"" call terminate", vbHide
End Sub
'--------------------------------------------------------------------------
' Module : UserForm1
' Procedure : ShellAndWait
' Author : Case (Ralf Stolzenburg)
' Date : 25.04.2013
' Purpose : ShellAndWait mit ausgeblendetem Dosfenster...
'--------------------------------------------------------------------------
Private Sub ShellAndWait(ByVal strPathName As String)
Dim WshShell As Object
On Error GoTo Fin
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run strPathName, 0, True
Fin:
Set WshShell = Nothing
If Err.Number 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
' UserForm nicht über das "X" schliessen lassen
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub