Discussion :

[yuriyan]

Bonjour,

je travaille sur une application tactile et pour saisir des données j'aimerai faire apparaitre le clavier virtuel de windows.

Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit On
 
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 callVirtualKeyBord()
 
        Dim lngReturn As Long
        lngReturn = ShellExecute(CLng(Me.Handle), "open", "osk.exe", vbNullString, "c:\windiws\system32\", 1)
 
    End Sub

J'ai le message d'erreur suivant :

PInvokeStackImbalance a été détecté
Message: Un appel à la fonction PInvoke ' ****:ShellExecute' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.

est ce que vous aurez une idée.

[ProgElecT]

Salut
Ligne 10 lngReturn = ShellExecute(CLng(Me.Handle), "open", "osk.exe", vbNullString, "c:\windiws\system32\", 1)Handle, windiws et le dernier \ ?
Ne serait ce pas plutôt Windows et pas le dernier \.
Je verrai mieux

Code :

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

lngReturn = ShellExecute(Me.hWnd, "open", "osk.exe", vbNullString, Environ("systemroot") & "\system32", 1)

[yuriyan]

En lisant d'autre forum je me suis rendu compte que cette erreur viens de la conversion en Long . Si on est en VB6 ça marche mais apparemment en VB.net il faut remplacer les long par Interger.

j'ai remplacé tous les intégers en Long et je n'ai plus la même erreur.
ça m'affiche maintenant.

impossible de lancer le clavier virtuel

.

Certain disent que c'est parce que l'application s'exécute en mode 32bit et que ça veut lancer une application qui s'exécute en mode 64 bits.

Est ce que quelqu'un aurait une idée de comment le résoudre en VB.net