Discussion :

[Shypster]

bonjour,

voilà j'ai dans mon application un textbox pour saisir un numéro de téléphone et je voudrai y implanter un control de saisie qui me permettrai d'afficher un message d'erreur si l'utilisateur saisi une lettre au lieu d'un chiffre et aussi vérifier le nombre de chiffres saisis, est ce possible ?

merci

[jmfmarques]

oui !

utilise pour celà l'événement keypress

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub textbox1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 8  then exit sub 'faut permettre l'effacement arrière
  If Val(Chr(KeyAscii)) = 0 And Chr(KeyAscii) <> "0" Then KeyAscii = 0
End Sub

[Shypster]

ok merci beaucoup !!!
derniere petite chose :
le control de la longueur de la saisie comment fais t'on?

[jmfmarques]

Dans l'événement textbox1_KeyPress

[jmfmarques]

Toujours dans le même événement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If len(textbox1.text) > maxi then keyascii = 0

[Shypster]

et pour rentre un msgbox quand une mauvaise frappe a été faite ???

[AlainTech]

Pffffff



Tu veux pas qu'on fasse tout à ta place, par hasard???

[jmfmarques]

Ecoute, je voudrais bien te répondre mais n'ai pas du tout envie de te macher à ce point le travail....
Ta question est élémentaire et il me semble que tu confonds ce forum avec une aide en ligne "interactive". Je ne te rendrais pas service en continuant..
8)

[AlainTech]

+1

[Shypster]

ok désolé je suis nouveau sur le forum c'est pour ça !

c'est déjà très sympa de m'avoir aidé et je te remercis jmfmarques.
Je trouverai tout seul pour le reste.

tchao

[jmfmarques]

Bien !!!

Je t'attribue volontiers un bon point pour cette décision.

[IADJOFOGUE]

Prour le control de la longueur, on peut utiliser la propriété MaxLength de l'objet textbox.
0 signifie illimité et 10 signifie que la longuer maxi autorisée est 10.