Discussion :

[amelyfred]

Bonjour à tous,

Je développe un application access sur tablette et je voudrais ouvrir le clavier virtuel à l'ouverture de certains formulaire.
j'ai bien trouvé quelque chose me permettant d'ouvrir le osk.exe mais moi ce qui m'intéresse d'est d'ouvrir tabtip.exe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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
 
Private Sub LaTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.ShortcutMenu = False
    If Button = acRightButton Then
        ShellExecute Me.hwnd, "open", "osk.exe", "", "", 1
    End If
End Sub

J'ai bien essayé de remplacer osk.exe par tabtip.exe mais ca ne fonctionne pas.
Est ce vous avez une idée?
Merci d'avance
Fred

[argyronet]

Bonjour,

Que retourne la variable lngRet de type double si tu modifies ton code comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub LaTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngRet As Double
    Me.ShortcutMenu = False
    If Button = acRightButton Then
        lngRet = ShellExecute(Me.hwnd, "open", "tabtip.exe", "", "", 1)
        Debug.Print lngRet
    End If
End Sub

Argy

[amelyfred]

Bonjour Argy et merci de te pencher sur mon problème

Il me met sub ou function non défini. Par contre, je ne l'ai pas mis sur le bon évènement. Je veux le mettre sur l'évènement clique.

Merci pour ton aide
Fred

[amelyfred]

Salut
Pardon autant pour moi je n'avais pas remis la fonction.

Donc j'ai mis cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
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
 
Private Sub Texte0_Click()
Dim lngRet As Double
        lngRet = ShellExecute(Me.hwnd, "open", "tabtip.exe", "", "", 1)
        Debug.Print lngRet
 
End Sub

Alors il ne se passe rien pas de message pas d'apparition de clavier mais lorsque je regardes la fenêtre des variables locales, lngRet = 2

Ca signifie quoi?
Merci de ton aide
Fred

[argyronet]

S'il te retourne 2 c'est que le fichier n'a pas été trouvé !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

The specified file was not found

Donc, il faut donc lui préciser l'emplacement complet...

Autant pointer sur OSK est natif pour Windows (il se connait) autant ton tabtip.exe est inconnu...

Argy

[amelyfred]

OK merci j'ai mis le chemin complet et cela fonctionne nickel
Merci

Fred