Discussion :

[GLMDRX]

Bonjour,

je travaille sur une macro Excel à destination d'une appli tactile.

pour saisir les champs texte, j'ouvre le clavier virtuel Windows de cette manière

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 champTexte_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
ShellExecute Application.hwnd, "open", "osk.exe", "", "", 1
 
End Sub

Or si le clavier virtuel est déjà lancé, il en ouvre un second ce que je ne souhaite pas.

Merci pour votre aide,

GLMDRX

[unparia]

Bonjour

Manque ici une précision importante qui déterminera le choix de la vérification à faire :
contrôles-tu :
- uniquement l'ouverture d'une instance de ce clavier par le truchement de ton appli VBA/Excel ? (et solution alors très simple et légère, que nous verrons)
ou
- l'ouverture déjà existante de ce clavier, y compris par une application externe ? (et solution alors bien plus complexe et lourde)

Dans un cas comme dans l'autre, cette discussion aurait trouvé sa place dans la section VBA/Excel et non Excel

EDIT : une solution simple et légère existe également dans le cas 2 : Mais uniquement à condition que ton appli ne doit pas être distribuée et qu'elle ne sera exécutée que sur ta machine.

[GLMDRX]

Bonjour,

Merci pour la réponse.

Le clavier virtuel est lancé par mon programme Excel.

Une solution simple mais pas tres propre serait de créer un booleen du type clavierVisible que j'initialise a true quand je lance le clavier et a false quand je le ferme

Pensez vous a une autre solution?

[unparia]

Dois-je (important) interpréter ta réponse comme :
"je ne veux "contrôler" que les instances du clavier visuel (et pas virtuel) ouvertes par mon application ?
(la précision EST la précision)

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
dim Clav As Long
 
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 champTexte_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
If Clav = 0 Then Clav = ShellExecute(Application.hwnd, "open", "osk.exe", "", "", 1)
End Sub

[GLMDRX]

Code :

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

1
2
3
4
5
6
7
8
9
10
dim Clav As Long
 
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 champTexte_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
If Clav = 0 Then Clav = ShellExecute(Application.hwnd, "open", "osk.exe", "", "", 1)
End Sub

Merci j'ai pris votre solution du coup

[GLMDRX]

Dois-je (important) interpréter ta réponse comme :
"je ne veux "contrôler" que les instances du clavier visuel (et pas virtuel) ouvertes par mon application ?
(la précision EST la précision)

OUI je veux "contrôler" les instances du clavier visuel ouvertes par mon application

[unparia]

Si la tentative de lancement du clavier par la fonction ShellExecute de la librairie Shell32 retourne une valeur inférieure ou égale à 32
Si l'on affecte cette valeur à une variable (ici toto), :
cette variable vaudra 0 si clavier non ouvert par ton appli. Elle vaudra de 0 à 32 inclus si tentgative infructueuse d'ouverture.
et donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
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 toto As Long
 
Private Sub Command1_Click()
  If toto <= 32 Then
    toto = ShellExecute(Application.hwnd, "open", "osk.exe", "", "", 1)
  End If
End Sub

le bouton command1 ne lancera qu'une seule fois ce clavier, non ?