OnScreenKeyboard - OSK - Bildschirmtastatur...

Frage: Besteht die Möglichkeit über eine Bildschirmtastatur in einer TextBox (diese ist in einer UserForm) Text und Zahlen einzugeben? Die Tastatur soll immer sichtbar sein, wenn die TextBox aktiv ist, sonst nicht.

Is possible via an onscreen keyboard in a TextBox (this is in a user form) enter text and numbers? The keyboard should always be visible when the TextBox is active, otherwise not.

Hier noch eine Beispieldatei / Here's a sample file:
OnScreenKeyboard - OSK - Bildschirmtastatur...[XLS 40 KB]

'--------------------------------------------------------------------------
' 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

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...