Posez votre question Signaler

Propriete numerique dans textbox ? [Résolu]

Messages postés
163
Date d'inscription
jeudi 2 octobre 2003
Dernière intervention
24 octobre 2018
 - - Dernière réponse : Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
 - 22 janv. 2010 à 00:04
Visual Basic 6 Posez votre question Signaler
Bonsoir,
Existe-t-il une propriete de TextBox qui vérifie que la saisie ne contient que du numérique ?
Merci
Afficher la suite 

Votre réponse

Répondre au sujet

3 réponses

Meilleure réponse
Signaler Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
 60
3
Merci
simple, sauf que ton code est du .NET ...

suffit de mettre le style ES_NUMBER

cf:
http://www.codyx.org/snippet_textbox-numerique-seulement_53.aspx

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 126 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Signaler Commenter la réponse de Mayzz
Messages postés
2859
Date d'inscription
mardi 15 avril 2003
Dernière intervention
26 novembre 2013
 17
0
Merci
Salut,

tu peux utiliser la fonction IsNumeric : 

If Not IsNumeric(TextBox1.Text) Then
   MsgBox ("Saisissez une valeur numérique !", vbExclamation, "Erreur de saisie")
   Exit Sub
End If


++


Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Commenter la réponse de Mayzz
Signaler Commenter la réponse de spameur_tn1
Messages postés
43
Date d'inscription
samedi 21 juillet 2007
Dernière intervention
8 avril 2012
0
Merci
Salut.
tu peut utiliser ca:

Private Sub TextBox1.Text_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar < "0" Or e.KeyChar > "9" And e.KeyChar <> " 8" Then
MsgBox("Veuillez saisir des chiffres !", MsgBoxStyle.Exclamation, "Erreur")
e.KeyChar = ""
End If
End Sub

c simple mon pot.
Commenter la réponse de spameur_tn1

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

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.