Posez votre question Signaler

Propriete numerique dans textbox ? [Résolu]

Messages postés
163
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
24 octobre 2018
 - - Dernière réponse : Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
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 

3 réponses

Meilleure réponse
Signaler Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
 53
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 127 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
Statut
Membre
Dernière intervention
26 novembre 2013
 13
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
Statut
Membre
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
Répondre Posez votre question