Discussion :

[LeXo]

bonjour je voudrais créer un événement
quand je te tapes:

Alt+V
j'ai fait un petit programme pour avoir les Keyascii mais ya pas de code ???

pouvez m'aider ??

[Vld44]

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
Option Explicit
 
Private m_blnCtrlKeyIsDown As Boolean
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Handler
 
    If KeyCode = 118 And m_blnCtrlKeyIsDown Then '118 = "v"
        '...
        m_blnCtrlKeyIsDown = False
    ElseIf KeyCode = 17 Then '17 = touche ctrl, à remplacer avec celle de ALT
        '...
        m_blnCtrlKeyIsDown = True
    Else
        '...
        m_blnCtrlKeyIsDown = False
    End If
 
    Exit Sub
Err_Handler:
End Sub

[Delbeke]

Comme le laisse suggerer le code de vld44, ALT+V, n'a pas de code ascii
Par contre on peut utilise KeyUp ou KeyDown pour recuperer le KeyCode (code de la touche) et le Shift (combinaison des touches CTRL+ALT+SHIFT)

[LeXo]

merci pour la réponse

mais le if impose un ordre pour taper

il faut soit taper le v puis le alt ou l'inverse

j'ai essayer

Code :

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

if Keycode=18 and keycode=86 then

mais ça ne réponds pas

[ThierryAIM]

Lorsque l'on veut une touche modifiée par Shift, Alt ou Ctrl, on appuie toujours AVANT sur le modificateur, soit Alt puis V :

Code :

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

1
2
3
4
5
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyV Then
        If Shift = 4 Then MsgBox "Alt-V"
    End If
End Sub

[LeXo]

bha oui c'est ce que j'ai fait

merci

[avigeilpro]

Si ton probleme est resolu, n'oublie pas le tag

[LeXo]

OUI chef !!!!!!