interdire les valeurs non numériques dans les textbox

Bonjour à tous

Je viens juste de migrer depuis VB6 vers visual basic 2012. Déjà que je n'étais que débutant en VB6 je rame pas mal en VB.net

J'ai trouvé ce code dans les FAQ du site :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _ Handles Text1.KeyPress   If Not Char.IsDigit(e.KeyChar) Then 'Tous les caractères non numériques ne sont pas traités sur le TextBox. e.Handled = True End If   End Sub

---

Le problème est que si je veux saisir une valeur avec des décimales impossible de taper le point et je suppose que cela doit être pareil pour ceux qui utilisent la virgule.
Merci pour votre aide...

Bonjour,

Utilisez le contrôle NumericUpDown à la place du TextBox.
On peut indiquer le nombre de décimales voulues avec la propriété DecimalPlaces.

A+, Hervé.

En faisant une petite recherche sur le forum vous trouverez pas mal de chose mais le mieux reste d'utiliser le contrôle qui est prévu pour comme le suggère rv26t

Merci pour cette réponse rapide. Comme toujours trop presser j'ai fais pas mal de travail avec mes maigres connaissances sans savoir qu'il existait un contrôle de type numérique. J'ai donc formater les textbox pour que les valeurs calculées de type double soient "présentables" et je voulais , pour perfectionner, interdire les saisies non numériques. Souvent les erreurs viennent du séparateur de décimal selon la configuration de windows. Je vais régler le problème avec un msgbox qui énervera un peu l'utilisateur :lol: mais pour la suite je vais essayer d'utiliser ce nouveau contrôle qui me semble bien pratique

encore merci pour vos réponses

Citation:

---

Envoyé par dmoluc

Je vais régler le problème avec un msgbox qui énervera un peu l'utilisateur :lol:

---

Des solutions existent comme vous vouliez le faire (voir lien dans mon précédent message) comme celle-ci :

Citation:

---

Envoyé par Graffito

Pas de solution directe via une propriété du TextBox.
Sinon : http://msdn.microsoft.com/fr-fr/library/ms229644.aspx
et je pense qu'il faut en plus désactiver le copier-coller :aie:.

---

Citation:

---

Envoyé par Sankasssss

Des solutions existent comme vous vouliez le faire (voir lien dans mon précédent message) comme celle-ci :

Citation:

---

Envoyé par Graffito
Pas de solution directe via une propriété du TextBox.
Sinon : http://msdn.microsoft.com/fr-fr/library/ms229644.aspx
et je pense qu'il faut en plus désactiver le copier-coller .

---

---

Il faut gérer un élément supplémentaire au niveau du séparateur sinon l'utilisateur peut en saisir plusieurs.
Dans la classe rajouter

Code:

---

Private Sep As Boolean = True ' pour permettre un seul séparateur

---

à la fin de la procedure OnKeyPress

Code:

---

1 2 3

' autoriser un seul séparateur If keyInput.Equals(decimalSeparator) Then Sep = False End Sub

---

Dans le test backspace

Code:

---

1 2 3

ElseIf e.KeyChar = vbBack Then ' si le séparateur est supprimé, autorisé de nouveau sa saisie If Not (Me.Text).Contains(decimalSeparator) Then Sep = True

---

Reste encore à gérer le del sur le séparateur


[Edit]
J'avais oublié de mettre la modif sur le test du séparateur ((...) and sep Then)

Code:

---

1 2	ElseIf (keyInput.Equals(decimalSeparator) OrElse keyInput.Equals(groupSeparator) OrElse keyInput.Equals(negativeSign)) And Sep Then ' Decimal separator is OK

---

A+,Hervé.

Bien vu, je n'avais que survolé le code mais il manque effectivement cette gestion :ccool:

merci pour ces solutions mais bien compliquer tout ça vue mon niveau :cry:
je vais sans doute faire l'impasse, de toute manière si les données ne sont pas numériques les calculs ne s’effectueront pas donc
MsgBox("Vérifier les données") fera l'affaire pour l'instant

merci quand même

De rien,
Surtout que le complément que je donne dans le post N°6 est juste une ébauche rapide de complément, il faudrait approfondir le sujet pour bien traiter tous les cas de figure.
Sinon le NumericUpDown reste le plus pratique.