VB.5 ou VB.6

merci merci a vs touuus.

A+

bonjour,

CodeAscii = Asc(TextBox1.Text)

Hello,

Dans les proprietes de ton objet Textbox tu dois avoir MaxLenght, initialises le a 1. Ca evite du code.
Pour information sur le code ascii, regardes l'evenement KeyPress de ton objet TextBox (par exemple), fais un msgbox de la variable Keyascii et tu verras son code de la touche activee.

Bonjour,

On peut faire comme ça :

Private Sub TextBox1_Change()

    If Len(Me.TextBox1) > 1 Then
        TextBox1 = Mid(TextBox1, 1, 1)
        Exit Sub
    End If
    
End Sub

;o)

alors kel est le code ??