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

[Nathanael Marchand]

Si le but est d'invoquer un programme, pas besoin de sortir l'artillerie lourde du P/Invoke. Y'a une classe pour ca:
http://msdn.microsoft.com/en-us/library/53ezey2s.aspx

[Ashireon]

C'est clair que j'utilise ca pour une petite GED maison

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Private Sub callVirtualKeyBord()
        Dim PROC As New Process()
 
        PROC.StartInfo.FileName = "C:\Windows\System32\osk.exe"
        PROC.Start()
 
        PROC.Close()
 
 
    End Sub

[yuriyan]

En effet je pense que La classe process suffit largement.
mais je pense que c'est plus un problème de droits.

Est ce que quelqu'un aurait une idée de comment contourner se problème?

[Nathanael Marchand]

En utilisant un ProcessStartInfo en paramètre tu peux éventuellement te connecter avec un autre nom d'utilisateur