strafor35
Messages postés dimanche 3 novembre 2013Date d'inscription
27 mai 2014
Dernière intervention
-
24 nov. 2013 à 16:00 - Dernière réponse : PapyNormand27
Messages postés samedi 7 août 2010Date d'inscription
16 janvier 2014
Dernière intervention
- 25 nov. 2013 à 21:58
J'utilise Visual Studio 2010 et j'ai un TextBox1 sur une boite de dialog.
Je voudrais que ce TextBox1 accepte uniquement des nombres.
Si une valeur autre q'un nombre est saisie dans le TextBox1 je voudrais qu'un mesage d'érreur s'affiche comme suit:
MsgBox("Format de nombre invalide").
J'ai éssayé avec le code suivant:
If VarType(TextBox1.Text) = VariantType.Currency Then
MsgBox("format valide")
Else
'Méssage d'érreur
MsgBox("format de nombre invalide")
End If
Mais le méssage d'érreur s'affiche même lorsque je saisie du text ou un nombre dans le TexBox1.
Si quelqu'un peut m'aider ça m'aiderait à avancer.
Merci d'avance à vous!
NHenry14135
Messages postés vendredi 14 mars 2003Date d'inscriptionModérateurStatut
24 avril 2018
Dernière intervention -24 nov. 2013 à 17:45
Oui, C'est bien "Microsoft.VisualBasic", IsNumeric est une des fonctions qui ne sont plus conseillées, car trop rigide et héritées de VB6, utilises plutôt TryParse qui est largement plus souple.
strafor35
Messages postés dimanche 3 novembre 2013Date d'inscription
27 mai 2014
Dernière intervention -24 nov. 2013 à 19:15
Merci beaucoup pour les conseils NHenry
j'ai retiré Microsoft.VisualBasic de l'espace de noms importés et j'ai remplacé MsgBox par MessageBox.Show
Maintenant est ce que c'est ce que je dois écrire pour le test de validité:
If VarType(TextBox1.Text) = VariantType.Double.TryParse Then
MessageBox.Show("format valide")
Else
'Méssage d'érreur
MessageBox.Show("format de nombre invalide")
End If
strafor35
Messages postés dimanche 3 novembre 2013Date d'inscription
27 mai 2014
Dernière intervention -25 nov. 2013 à 18:39
Bonsoir NHenry
Grace à vos conseils j'ai pu trouver une solution à ma préoccupation. j'ai éssayé avec la méthode Double.TryParse qui marche parfaitement. Voici le code final que j'obtiens:
Dim value as Double
If Double.TryParse(TextBox1.Text , Value) then
MessageBox.Show("format valide")
Else
MessageBox.Show("format de nombre invalide")
End if
Merci infiniment pour vos conseils et merci égalment à tous les membres du forum.
j'ai également essayé ceci qui marche parfaitement.
If Not IsNumeric(TextBox7.Text) Then
MsgBox("format de nombre invalide")
Else
MsgBox("format valide")
End If
j'ai retiré Microsoft.VisualBasic de l'espace de noms importés et j'ai remplacé MsgBox par MessageBox.Show
Maintenant est ce que c'est ce que je dois écrire pour le test de validité:
If VarType(TextBox1.Text) = VariantType.Double.TryParse Then
MessageBox.Show("format valide")
Else
'Méssage d'érreur
MessageBox.Show("format de nombre invalide")
End If
Double.TryParse(...)
Renseignes-toi dessus (touche F1)
Grace à vos conseils j'ai pu trouver une solution à ma préoccupation. j'ai éssayé avec la méthode Double.TryParse qui marche parfaitement. Voici le code final que j'obtiens:
Dim value as Double
If Double.TryParse(TextBox1.Text , Value) then
MessageBox.Show("format valide")
Else
MessageBox.Show("format de nombre invalide")
End if
Merci infiniment pour vos conseils et merci égalment à tous les membres du forum.