Vérifier si groupe de textbox sont vides

Bonjour ! Je pense mon problème assez simple, je n'ai juste pas la bonne formulation. Je m'explique.

J'ai pas mal de Textbox dans mon form. J'ai une fonction qui me permet de vérifier s'ils sont "IsNumeric" ou pas. Si pas "IsNumeric" > msgbox(err).

Jusque là ça va. Mais je me suis aperçu qu'il me mettais aussi une erreur si le/les textbox étaient vides. Donc vide pour lui c'est idem que pas "IsNumeric".

Voici ma fonction très pratique : (qui marche bien!)

Code:

---

1 2 3 4 5 6 7 8 9 10

Function IsAllTextBoxNumeric(ByVal conteneur As Control) Dim i As Integer For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)() Try If Not Double.TryParse(txt.Text, i) Then Return False Catch End Try Next Return True End Function

---

Comment est ce que je pourrai la modifier / ajouter pour qu'il me laisse tranquille si le textbox est vide ?
Parce que ça par exemple ça ne fonctionne pas : (oui je fais beaucoup de feeling...) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function IsAllTextBoxNumeric(ByVal conteneur As Control) Dim i As Integer For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)() Try If Not Double.TryParse(txt.Text, i) Or Not Nothing.TryParse(txt.Text, i) Then Return False Catch End Try Next Return True End Function

---

Et du coup mon code appelant :

Code:

---

1 2	ElseIf Not IsAllTextBoxNumeric(Panel_controlX) Then MsgBox("Il y a des entrées non numériques, veuillez vérifier.")

---

Merci !

Bonjour Adakhum,

Dans ta boucle tu peux inclure une conditionnelle du style :

Code:

---

1 2 3

If txt.Text = String.empty Then Continue For End If

---

A+

Et bien en fait je crois que j'ai réussi à résoudre mon problème ...

Si je met ça à l'air correct ? :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function IsAllTextBoxNumeric(ByVal conteneur As Control) Dim i As Integer For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)() Try If Object.Equals(txt.Text, "") Then Return True If Not Double.TryParse(txt.Text, i) Then Return False Catch End Try Next Return True End Function

---

EDIT : Nan, en fait je croyais que ça marchait au début mais ça continue de déconner, j'essaie ta solution Wallace

En fait je ne comprend pas pourquoi ça ne marche pas .. Avec ce code par exemple, si je rentre un vide il me met le msgbox, et il me met aussi le msgbox si je rentre une lettre et aussi un chiffre !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function IsAllTextBoxNumeric(ByVal conteneur As Control) Dim i As Integer Dim bool As Boolean For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)() Try If Not Double.TryParse(txt.Text, i) Then bool = False ' si c'est une lettre ou un vide > bool = false mais on test quand même la ligne suivante ! If txt.Text = String.Empty Then Return True ' si c'est un vide, ça devrait renvoyer "True" et la fonction est quittée ! et ça ne le renvoie pas ... If bool = False Then Return False ' si ce n'était pas non plus un vide ça retourne false car c'était bien une lettre .. Catch End Try Next Return True End Function

---

Est ce que mes commentaires sont théoriquement bon ?

Rappel Code appelant :

Code:

---

1 2	ElseIf Not IsAllTextBoxNumeric(PL_TS_MD) Then MsgBox("Il y a des entrées non numériques, veuillez vérifier.")

---

EDIT : en fait, quand je met ça par exemple : If Textbox.Text = "" Then Exit Sub et que j'effectue un pas à pas détaillé pour voir ce qui se cache, s'il n'y a rien dans le textbox, il ne fait pas "Exit Sub" je ne comprend pas ? Rien c'est bien "" ? !

Ce qu'i serait bon d es avoir c'est déclenches-tu ta sub IsAllTextBoxNumeric depuis un gestionnaire d’événement :

- des textbox en question ?
- un bouton (au clic en guise de vérification) ?

Code:

---

1 2	EDIT : en fait, quand je met ça par exemple : If Textbox.Text = "" Then Exit Sub et que j'effectue un pas à pas détaillé pour voir ce qui se cache, s'il n'y a rien dans le textbox, il ne fait pas "Exit Sub" je ne comprend pas ? Rien c'est bien "" ? !

---

Rien = Nothing
Vide = Empty

Ce sont 2 choses différentes qui doivent être traitées indépendamment !

Citation:

---

Envoyé par wallace1

Ce qu'i serait bon d es avoir c'est déclenches-tu ta sub IsAllTextBoxNumeric depuis un gestionnaire d’événement :

- des textbox en question ?
- un bouton (au clic en guise de vérification) ?

---

Depuis le changement de texte d'un panel encadrant des textbox :

Code:

---

1 2 3 4 5

For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)() AddHandler txt.TextChanged, AddressOf PL_TG_MD_TextChanged Next End Sub

---

En fait la difficulté c'est vraiment de cerner toutes les textbox en même temps, car du coup si dans l'une par exemple j'ai un vide, puis dans la suivante j'entre une lettre, il va quand même me dire que ça va bien parce que dans l'autre textbox j'ai rentrer un vide mais je lui ai dit que c'était "pas grave" (je me comprend ^^)

EDIT : Ici j'ai réussi à programmer pour UNE textbox le code et surtout le résultat que je souhaiterai obtenir :

Code:

---

1 2 3 4 5

Private Sub TB_traverse_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_traverse.TextChanged Dim i As Int16 If TB_traverse.Text = String.Empty Then Exit Sub If Not Double.TryParse(TB_traverse.Text, i) Then MsgBox("Il y a des entrées non numériques, veuillez vérifier.") End Sub

---

Reste plus qu'a le généraliser aux panel avec l'événement text_changed ..
Merci pour ton aide wallace1

Et pourquoi ne pas créer une extension du contrôle Textbox ? Je propose ce genre d e contrôle ici :

http://3dotdevcoder.blogspot.fr/2014...e-textbox.html


...Car à force ça risque d'être difficilement maintenable ton code !

PS : il faut savoir qu'en DotNet nous n'inventons plus rien tout a déjà été fait. ;)

Ah merci wallace1 ! Elle est simple cette idée mais comme on dit fallait y penser ! génial ce code !

Je crois que j'ai néanmoins réussi à trouver mais si jamais ça déconne j'utiliserai avec grand bonheur ton code :)
Je met tout de même ma fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function IsAllTextBoxNumeric(ByVal conteneur As Control) Dim i As Integer Dim bool As Boolean = True For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)() Try If Not Double.TryParse(txt.Text, i) Then bool = False If txt.Text = String.Empty Then bool = True If bool = False Then Return False Catch End Try Next Return True End Function

---

Le problème c'était que dès qu'il tombait sur un textbox ou il y avait rien du coup il renvoyait "True" direct et il ne testais pas les autres textbox ! Merci encore wallace1 ! :D

Quand on plusieus if,
Il est préférable d'utiliser if ... then et elseif ...then

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function IsAllTextBoxNumeric(ByVal conteneur As Control) Dim i As Integer Dim bool As Boolean = True For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)() Try If Not Double.TryParse(txt.Text, i) Then bool = False ElseIf txt.Text = String.Empty Then bool = True ElseIf bool = False Then Return False end if Catch End Try Next Return True End Function

---

Sans Elseif le programme pourait rencontrer plusieur condition Vrai

Il y a aussi un Select Case qui fait la même chose

oui mais l'inconvénient c'est qu'ici je veux vérifier toute les conditions alors que le "Elseif" s'il en vérifie une il saute les autres ! Mais c'est vrai qu'il est bien pratique, je m'en suis servi plus d'une fois :)