Propriete numerique dans textbox ? [Résolu]
Signaler
coleoptere
Renfield
- Messages postés
- 163
- Date d'inscription
- jeudi 2 octobre 2003
- Statut
- Membre
- Dernière intervention
- 24 octobre 2018
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
A voir également:
- Propriete numerique dans textbox ?
- Passage entre Champ numérique et Textbox d'un formulaire ✓ - Forum - VB.NET
- Saisie numerique dans textbox avec visual basic 2005 Express ✓ - Forum - VB.NET
- VB6 Propriété d'un TextBox ✓ - Forum - Visual Basic
- Obliger saisie numérique dans textbox vba ✓ - Forum - Visual Basic 6
- Bloquer completement l'ecriture dans une textbox - Forum - Visual Basic
3 réponses
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
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
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
Mayzz
- Messages postés
- 2814
- Date d'inscription
- mardi 15 avril 2003
- Statut
- Membre
- Dernière intervention
- 2 juin 2020
Salut,
tu peux utiliser la fonction IsNumeric :
++
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
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.
spameur_tn1
- Messages postés
- 43
- Date d'inscription
- samedi 21 juillet 2007
- Statut
- Membre
- Dernière intervention
- 8 avril 2012
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.
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.