petit problème vb.net

Bonjour,
Je suis en train de programnmer une fonction qui vérifie pour un formulaire donné si tous les champs sont remplis en renvoyant un booléen a cet effet et en affichant un msgbox s'il y a un champs pas rempli.
Je fais appel a cette fonction comme resultat de clique sur un bouton donné.
Le probleme c'est qu'elle ne marche pas et que je n'ai pas pu la corriger.

Des idées SVP:

Code:

---

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

Private Function validerChampsObligatoires() As Boolean Dim bValide As Boolean = True   For Each ctrl As Control In Me.controls If ((TypeOf ctrl Is TextBox) Or (TypeOf ctrl Is ComboBox)) Then If ctrl.Text Is String.Empty Then bValide = False End If End If Next   If Not bValide Then MsgBox("", vbCritical + vbOKOnly, "Champs non remplis") End If   validerChampsObligatoires = bValide End Function

---

D'apres mes tests c'est le for each qui ne fait pas son boulot 8O
Ca renvoie tjs true

L'instruction suspecte :If ctrl.Text Is String.Empty
à remplacer par If (ctrl.Text = String.Empty)

Il est possible aussi que tu recherche au mauvais endroit.
Si tu as un champ dans un GroupBox, ton for each ne passera jamais sur lui car il n'est pas un enfant direct de Me.Controls mais de Me.GroupBox1.Controls !

Suis-je clair ?

tu change ça

Code:

---

1 2 3

If ctrl.Text Is String.Empty Then bValide = False End If

---

Par ça

Code:

---

1 2 3

If ctrl.Text = Nothing Then bValide = False End If

---

Citation:

---

Envoyé par Elcrolonosios

Il est possible aussi que tu recherche au mauvais endroit.
Si tu as un champ dans un GroupBox, ton for each ne passera jamais sur lui car il n'est pas un enfant direct de Me.Controls mais de Me.GroupBox1.Controls !

Suis-je clair ?

---

Tu as raison... Je vais essayer de changer ça merci.
Merci pour les autres aussi... le Is String.Empty posait probleme aussi.

Voila le code corrigé:

Code:

---

1 2 3 4 5 6 7 8 9

For Each ctrl As Control In controles If TypeOf ctrl Is GroupBox Then For Each sousCtrl As Control In ctrl.Controls If ((TypeOf sousCtrl Is TextBox) Or (TypeOf sousCtrl Is ComboBox)) And sousCtrl.Text = String.Empty Then bValide = False End If Next End If Next

---