Voici un petit convertisseur simple de caractères alpha-numériques en ASCII.
Appuez sur la touche, et vous aurez la lettre majuscule et minuscule (si vous appuyez sur une lettre).
Source / Exemple :
' Je ne crois pas que le codage est trop difficile pour qu'il soit nécessaire d'expliquer...
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
EtiTouche1.Caption = ""
EtiCode1.Caption = ""
EtiTouche2.Caption = ""
EtiCode2.Caption = ""
EtiTouche1.Caption = Chr(KeyCode)
EtiCode1.Caption = KeyCode
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
EtiTouche2.Caption = Chr(KeyAscii)
EtiCode2.Caption = KeyAscii
If KeyAscii = vbKeyReturn Then
Unload Me
End
End If
End Sub
Conclusion :
Commentaires appréciés !
Yawa
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.