Discussion :

[hugoclo]

Re-Bonjour,
J'utile un soft afin de creer plusieurs bureaux virtuel(8).Le passage d'un bureau à l'autre se fait part Ctrl+1 ou (2,3 etc).
Sur un form j'ai cré un bouton avec pour code :

Code :

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

1
2
3
Private Sub Command3_Click()
 SendKeys "^(2)"
End Sub

de maniere à passer au bureau n°2.
Et comme d'hab quand je fais quelque chose cela ne marche pas.

[SfJ5Rpw8]

pourquoi des ( ) autour du 2 ?

[hugoclo]

Car il me semble avoir lu que pour vouloir que la touche ctrl reste enfoncer il fallait mettre des parentheses.
J'ai essayer sans les () et ca plante VB6 si je met un espace entre ^ et 2

[SfJ5Rpw8]

oui tu as raison enfin les parenthése c'est quand tu dois appuyer sur plusieurs touches à la suite en maintenant la touche Ctrl actionné..


Pour que le SendKey soit pris en compte par ton soft de bureau virtuel il faut que celui-ci ait le focus ....voir AppActivate

[hugoclo]

merci j'y vais

[hugoclo]

Avec le nouveau code :

Code :

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

1
2
3
4
Private Sub Command3_Click()
AppActivate "VDesk 1.1"
 SendKeys "^(2)"
End Sub

j'ai bien mon prog qui s'active (il passe au premier plan) mais la la fonction sendkeys ne donne rien

[SfJ5Rpw8]

rajoute un DoEvents entre les 2 instructions...

[ThierryAIM]

pour la touche 2, tu utilises le clavier numérique ?

sinon, c'est é que tu envoies, et pas 2
il te faut appuyer sur Shift en même temps ou capslock

[hugoclo]

Ca ne donne rien.

[ucfoutu]

Bonjour,

Pour moi, si la touche 2 doit être pressée alors qu'est enfoncée la touche CTRL, c'est :

Code :

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

Sendkeys "^2"

et sans espace.