Tastiera virtuale

ciao a tutti.
ho un database access che utilizzo in un tablet con Windows 8.
mi chiedo come posso richiamare la tastiera virtuale cliccando su di una textbox.
ho provato con

Private Sub box1_Click()
Shell ("Winword.exe C:\Windows\System32\osk.exe"), 1
End Sub

ma non funziona...
qualcuno sa darmi qualche consiglio?
grazie,
francesco

prova con :

Shell "osk.exe"

Originariamente inviato da monello

prova con :

ciao,
ti ringrazio per la risposta.
ho provato con shell"osk.exe" ma vi compare l'errore di run-time 5:
chiamata di rountine o argomento non validi...
grazie

A cosa serve forzare l'apertura della Tastiera Virtuale...? non dovrebbe essere automatico il riconoscimento...?
Forza il Focus sul controllo e dovrebbe aprirsi in automatico... altrimenti credo ci sia un problema più serio.

il riconoscimento è automatico solo per le "app" Windows 8.
per tutto il resto è necessario aprire la tastiera dall'apposito pulsante situato nella barra degli strumenti.
per questo volevo cercare una soluzione.

Originariamente inviato da keccoricci

il riconoscimento è automatico solo per le "app" Windows 8.
per tutto il resto è necessario aprire la tastiera dall'apposito pulsante situato nella barra degli strumenti.
per questo volevo cercare una soluzione.

Shell dovrebbe andare... gli EXЕ non richiedono il PATH, ma forse

Dim mVirtApp as long
mVirtApp = Shell("%windir%\system32\osk.exe", 1)

In caso puoi tentare questa

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute 0, vbNullString, "osk.exe", vbNullString, "C:\", 1

Oppure questa

Application.FollowHyperlink "C:\Windows\System32\osk.exe"

Originariamente inviato da @Alex

Shell dovrebbe andare... gli EXЕ non richiedono il PATH, ma forse

Dim mVirtApp as long
mVirtApp = Shell("%windir%\system32\osk.exe", 1)

In caso puoi tentare questa

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute 0, vbNullString, "osk.exe", vbNullString, "C:\", 1

Oppure questa

Application.FollowHyperlink "C:\Windows\System32\osk.exe"

grazie mille,
sono riuscito a risolvere con il secondo codice.
vi ringrazio ancora!

Originariamente inviato da @Alex

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute 0, vbNullString, "osk.exe", vbNullString, "C:\", 1

Lo schermo touch che hanno acquistato non apre la tastiera in automatico...Provato ed il codice da te suggerito va alla grande, è possibile chiudere la tastiera da codice?

Oppure devo cliccare sulla 'x'?

Grazie