Discussion :

[AsmCode]

Bonjour

Je voudais pouvoir réaliser une action au moyen d'une combinaison de touche: +1, +2 donc seulement et seulement si l'usager appuie sur la touche + la laisse enfoncé et appuie ensuite sur la touche 1 ou 2, meme chose pour le - c'est pour une fonction de zoom out et in

mais la variable shift ne prend en compte que les touche shift et alt je crois ?

merci

[ouskel'n'or]

Shift... oui et Shift plus + ça donne +, et + c'est chr(43), tu ne peux pas tester KeyCode ?

A+

[ouskel'n'or]

Oui, parce que s'il laisse + enfoncé, il aura plusieurs fois +...
Tu peux essayer ça

Code :

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

1
2
3
4
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
      If KeyAscii = 43 Then Positif = True
TextBox4.Text = ""
End Sub

A+

[AsmCode]

voici ce que j'ai fait:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
dans un module: public iKeyBuffer as integer
 
Private Sub Form_KeyPress(KeyAscii As Integer)
 
    If iKeyBuffer <> 0 Then KeyAscii = 0
 
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = vbKeyAdd Or KeyCode = vbKeySubtract Then
 
        iKeyBuffer = 0
 
    End If
 
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = vbKeyAdd Or KeyCode = vbKeySubtract Then
 
        iKeyBuffer = KeyCode
 
    End If
 
    Select Case KeyCode
 
        Case vbKeyNumpad1
 
            Select Case iKeyBuffer
 
                Case vbKeyAdd
 
                    Imgx(0).Zoom = Imgx(0).Zoom + 0.01
 
                Case vbKeySubtract
 
                    Imgx(0).Zoom = Imgx(0).Zoom - 0.01
 
            End Select
 
        Case vbKeyNumpad2
 
            Select Case iKeyBuffer
 
                Case vbKeyAdd
 
                    Imgx(2).Zoom = Imgx(2).Zoom + 0.01
 
                Case vbKeySubtract
 
                    Imgx(2).Zoom = Imgx(2).Zoom - 0.01
 
            End Select
 
    End Select
 
End Sub

ça fonctionne très bien, sauf que je me demandais si vb avait une façon pour gérer la combinaison de touche autre que shift ou alt. Dans ce cas-ci la touche + et - combiné à 1 et 2

au lieu de mettre ça dans un buffer, etc.

Le seul problème que j'ai ici c'est si l'usager veux utiliser la touche + tout seul, sans combinaison, il ne peut pas.

[zazaraignée]

Salut

ouskel'n'or t'a donné une bonne piste. Mais n'oublie pas que le code n'est pas complet... faut l'adapter. Exemple:

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
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    If KeyAscii = 43 Then 
        Positif = True 
        KeyAscii = chr(0) ' pour ne pas vider le textbox inutilement 
      ElseIf Positif then
        Select Case KeyAscii
          Case "1"
            'Code pour +1 en n'oubliant pas de remettre KeyAscii à zéro
          Case "2"
            'Code pour +2 en n'oubliant pas de remettre KeyAscii à zéro
          Case "3"
            'Code pour +3 en n'oubliant pas de remettre KeyAscii à zéro
        End Select
        Positif = False
    End If
End Sub

[ouskel'n'or]

Ben moi j'ai fait ça et ça marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 43 Then Positif = True
    TextBox4.Text = ""
End Sub
 
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Shift Then Majuscule = True
End Sub
 
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "Positif = " & Positif & " majuscule = " & Majuscule
End Sub

Bien sûr, j'ai déclaré Positif et Majuscule comme boolean en Public

Tu regardes...

A+

[ouskel'n'or]

Bien sûr, si je devais corriger mes erreurs...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    if KeyAscii = 43 then
       Positif = true
       TextBox4.Text = ""
    endif
End Sub 
 
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
    if shift then Majuscule = true
End Sub 
 
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    MsgBox "Positif = " & Positif & " majuscule = " & Majuscule 
End Sub

A+