Auttoriser que les chiffres dans une text box

ordipard Messages postés 155 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 12 novembre 2009 - 25 juin 2004 à 16:58
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 25 juin 2004 à 18:10
salu
je voudrai savoir si on peut auttoriser que les nombre den une text box

merci

2 réponses

cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007
25 juin 2004 à 17:24
Salut,

Très simple en effet tu dois copier ce petit bout de code dans la sub Text1_Change du contrôle TexBox :

If Asc(Text1) < 48 Or Asc(Text1) > 57 Then Text1.text = ""

Le TexBox ne prendra que les valeurs comprises entre 0 et 9.

N'oublie de mettre un On Error Resume Next avant ce code sinon ça provoquera une erreur quan tu écriras dans le champ.

@+++ ;)
0
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 18
25 juin 2004 à 18:10
Question déjà posée ici et toujours la même réponse :

Dans le keypress :

if keyascii > 31 and (keyascii <48 or keyascii > 57) then keyascii = 0

le keyascii > 31 c pour éviter de bloquer les bacspace, flèches, return, ...

Cordialement

CanisLupus
0
Rejoignez-nous