Discussion :

[imparator_42]

J'ai ce ci pour informer :
Key Code
SHIFT +
CTRL ^
ALT %

Pour faire "Ctrl + +" ; Je fais ce ci :

Code :

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

SendKeys "^{+}"

Mais comment je fais pour "Ctrl + -" ?

J'ai essayer tous les codes suivants : mais ça ne donne rien

Code :

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

1
2
3
SendKeys "^{-}"
SendKeys "^-"
SendKeys "^(-)"

Quelqu'un pourrait peut-être m'aider SVP?Merci

[SfJ5Rpw8]

en théorie ce serai :

Code :

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

SendKeys "^-"

mais cela ne fonctionne pas...

[ProgElecT]

Pas sûr, car non verifié sur un prog externe réagissant a ces 2 touches

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Private Sub Form_Load()
Me.KeyPreview = True
Me.Visible = True: DoEvents:Me.Refresh
SendKeys "^{-}"
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 54 Then
 Me.Caption = Shift & "      " & KeyCode
End If
End Sub

le SendKeys "^{-}" est bien detecté dans la condition If de la Sub Form_KeyUp.

[ucfoutu]

Pas sûr, car non verifié sur un prog externe réagissant a ces 2 touches

Et la vraie question est probablement ce point précis.
Sendkeys ne marche pas toujours bien avec les applications tournant avec Windows.
Il est carrément à éviter avec les autres applications.

Note You can't use SendKeys to send keystrokes to an application that is not designed to run in Microsoft Windows.

Edit :

Just in case : oublier totalement SendKeys avec Directx

On peut utiliser l'Api de Windows (la fonctions SendInput, par exemple) pour certaines applications DirectX, mais pas toutes (certains jeux ne l'acceptent pas non plus)

[imparator_42]

en théorie ce serai :

Code :

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

SendKeys "^-"

mais cela ne fonctionne pas...

9a sera plutôt :

Code :

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

SendKeys "^{-}"

non ? mais bon ça ne marche pas . . .

[ucfoutu]

Dans le code démo de Progelect,

Code :

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

SendKeys "^-"

aura le même effet et le même résultat que :

Code :

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

SendKeys "^(-)"

ou que

Code :

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

SendKeys "^{-}"

et pour cause ... (il n'y a qu'à essayer ...)

Lis par contre mon message précédent concernant la simulation de touches à destination d'autres applications...

[imparator_42]

Pas sûr, car non verifié sur un prog externe réagissant a ces 2 touches

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Private Sub Form_Load()
Me.KeyPreview = True
Me.Visible = True: DoEvents:Me.Refresh
SendKeys "^{-}"
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 54 Then
 Me.Caption = Shift & "      " & KeyCode
End If
End Sub

le SendKeys "^{-}" est bien detecté dans la condition If de la Sub Form_KeyUp.

bien sur ça capte

Et la vraie question est probablement ce point précis.
Sendkeys ne marche pas toujours bien avec les applications tournant avec Windows.
Il est carrément à éviter avec les autres applications.



Edit :

Just in case : oublier totalement SendKeys avec Directx

On peut utiliser l'Api de Windows (la fonctions SendInput, par exemple) pour certaines applications DirectX, mais pas toutes (certains jeux ne l'acceptent pas non plus)

C'est pour mozilla

Ctrl + + à pour fonction d'agrandir la taille du texte
Ctrl + - à pour fonction d'appetir ( je sais pas le verbe de faire plus petit) la taille du text
Ctrl + 0 à pour fonction de remettre la taille du texte normale

Code :

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

SendKeys "^{+}"

Celui-ci marche , agrandi bien le texte

Code :

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

SendKeys "^0"

Celui-ci marche, remet bien le texte a la taille normale


P.S : Manuellement Ctrl + - ça marche

[ThierryAIM]

P.S : Manuellement Ctrl + - ça marche

chez moi, ça ne marche qu'avec le - du pavé numérique (code touche =109) et pas avec le - de la touche -/6

[imparator_42]

chez moi, ça ne marche qu'avec le - du pavé numérique (code touche =109) et pas avec le - de la touche -/6

Je confirme , ça marche avec le pavé numérique . . .
Alors la question est comment intégré ça ?

On ne pourrait pas faire avec ascii ?
- a pour code ascii : 45

[SfJ5Rpw8]

utilise l'API KeybEvents...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
    Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) _
    As Long
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
 
 
Sub EnVoiCrtLMoins()
  'Actionne touche Controle
  keybd_event vbKeyControl, 0, KEYEVENTF_EXTENDEDKEY, 0
  'Actionne touche - du pavé numérique
  keybd_event 109, 0, 0, 0
 
  'Relache  touche - du pavé numérique
  keybd_event 109, 0, KEYEVENTF_KEYUP, 0
 
  'Relache la touche controle
    keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
End Sub

[imparator_42]

Merci beaucoup ça marche Bbil
mais si jamais je ferme le programme n'importe quand ça pourrait faire quelques beug ...
Mais sinon ça marche

[SfJ5Rpw8]

Merci beaucoup ça marche Bbil
mais si jamais je ferme le programme n'importe quand ça pourrait faire quelques beug ...
Mais sinon ça marche

pourquoi ?

[imparator_42]

Si jamais je ferme l'appli quand Ctrl est enfoncé , ben il reste enfoncé
il ne relache pas le buton

[imparator_42]

Je me suis trompé il ne relâche pas la touche Ctrl
Ctrl est toujours enfoncée

Il faut que j'aille dans clavier visuel et que je clique sur la touche Ctrl
(même avec le clavier il ne relâche pas )

[SfJ5Rpw8]

Je me suis trompé il ne relâche pas la touche Ctrl
Ctrl est toujours enfoncée

Il faut que j'aille dans clavier visuel et que je clique sur la touche Ctrl
(même avec le clavier il ne relâche pas )

oui mais ... bon .. suffit de faire suivre chaque action sur Ctlr par un relâche..comme le code que je t'ai mis en exemple...



si chez moi il relâche .. lors d'un nouveau appui sur CTRL..

[imparator_42]

SI jamais on met un timer il refait à chaque fois la même chose.
Mais si jamais on le fait qu'une fois , chez moi la touche ctrl est maintenue
et je ne sais pas pourquoi, parce que moi j'ai copier votre code et y a bien le relâchement de la touche Ctrl. ..

[imparator_42]

je ne sais pas ce que ça vaut cette constante : Private Const KEYEVENTF_EXTENDEDKEY = &H1
mais si j(utilise ça :

Code :

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

1
2
3
4
5
6
7
keybd_event vbKeyControl, 0, 0, 0
  'Actionne touche - du pavé numérique
  keybd_event 109, 0, 0, 0
  'Relache  touche - du pavé numérique
  keybd_event 109, 0, KEYEVENTF_KEYUP, 0
  'Relache la touche controle
    keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0

ça marche et il n'y a pas de blocage

[SfJ5Rpw8]

je ne sais pas ce que ça vaut cette constante : Private Const KEYEVENTF_EXTENDEDKEY = &H1
...

oui une petite erreur dans mon code ... si tu utilise cette constante pour "appuyer" sur la touche il faut aussi l'utiliser pour lâcher la touche...

Code :

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

keybd_event vbKeyControl, 0, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0

désolé..

[imparator_42]

ah oki, ça explique pourquoi j'avais la touche ctrl enfoncée
merci Bbil, l'autre aussi marche