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 ??
Version imprimable
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 ??
Code:
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
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)
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
mais ça ne réponds pasCode:if Keycode=18 and keycode=86 then
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:
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
bha oui c'est ce que j'ai fait
merci
Si ton probleme est resolu, n'oublie pas le tag :resolu: ;)
OUI chef !!!!!! 8-)