Convertisseur simple ascii

Description

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

Codes Sources

A voir également

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.