Tester si le clavier virtuel est ouvert VBA

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:

---

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

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.

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?

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)

Code:

---

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

---

Citation:

---

Envoyé par 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)

---

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

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:

---

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 ?

Citation:

---

Envoyé par dysorthographie

Code:

---

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

Citation:

---

Envoyé par 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:

---

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 ?

---

En effet merci, je ne savais pas que la fonction retournait un nombre

Attention :
remplace par

Code:

---

if clav <=32 ....

---

relire ce que j'en ai dit plus haut.
Mais ... j'attends maintenant la question qui devrait logiquement venir ... :D

Bon ...
La question aurait dû être : "oui, mais si quelqu'un ferme la fenêtre du clavier, la variable de contrôle ne sera pas remise à zéro et on ne pourra alors plus ouvrir à nouveau cette fenêtre !"
Et ma réponse aurait été : Ne pas utiliser la variable toto (mon exemple) ou Clav (l'autre exemple), mais la fonction FindWindows de l'Api de Windows.
------------------
Mais quel travail pour rien !
1) Windows gère déjà seul l'affaire. Si clavier en cours -->> pas de nouvelle instance (une seule possible)
2) même pas besoin d'une fonction de l'Api de Windows. La fonction Shell de VBA suffit largement.

Bon ... cela t'aura permis de t'exercer ... ce sera toujours ça :lol: