Titre: Keycode.

Description:

Les Keycodes sont des nombres associées aux touches du clavier. Outil pour traduire et afficher les Keycodes, indique la touche activée ainsi que le nombre associé à la touche.

Le code:

 
Option Explicit
Dim LS$, Touche$, CleCode$

Private Sub Form_KeyPress(KeyAscii As Integer)
Touche = "Touche correspondante: " & Chr(KeyAscii)
End Sub

Private Sub Form_Load()
KeyPreview = True
LS = Chr(13) & Chr(10)
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Touche = "": CleCode = "": Lbl.Caption = ""
CleCode = KeyCode
TimX.Interval = 500
End Sub

Private Sub TimX_Timer()
TimX.Interval = 0
Dim Mess$
Mess = "Code ''KeyCode'' = " & CleCode
Lbl.Caption = Mess & LS & Touche
End Sub