[vb.net] For Each .. avec condition

bonjour :

Code:

---

1 2 3 4 5 6

For Each ctrl As Control In Me.Controls If TypeOf (ctrl) Is TextBox Then 'fonction() End If Next

---

en fait la fonction va se jouer pour tous les textbox, je souhaiterais la lancer que pour 6 textbox ou alors pour tous sauf certaine

et ce n'est pas possible de rajouter ta condition ici :

Code:

---

If TypeOf (ctrl) Is TextBox

---

?

genre

Code:

---

If TypeOf (ctrl) Is TextBox And ctrl == tbxMaboite

---

...

(pardonne la syntaxe, je suis plutot C#)

ben je vais voir, je sais pas la syntaxe justement

ben ce que tu as mis dans ton poste initial est bon ...

je vois pas trop ton problème en fait

ouui je sais que c'est bon, mais j'en veux plus car mon code prend tous les controls, moi je veux prendre que le textbox1, textbox2, textbox3, textboxControl1, textboxControl1 ...

Code:

---

1 2 3 4 5 6 7 8 9

Dim MyCollection As New Collection MyCollection.Add(txt1) MyCollection.Add(txt2) For Each ctrl As Control In MyCollection If TypeOf (ctrl) Is TextBox Then GrammarCheck(DirectCast(ctrl, TextBox)) End If Next

---

Citation:

---

Envoyé par Harry_polin

Code:

---

If TypeOf (ctrl) Is TextBox And ctrl == tbxMaboite

---

(pardonne la syntaxe, je suis plutot C#)

---

Code:

---

If (TypeOf (ctrl) Is TextBox) AndAlso (ctrl.Tag = True) Then ...

---

... Tu es pardonné :D

Code:

---

1 2 3 4 5 6 7 8

Dim MyCollection As New Collection MyCollection.Add(txt1) MyCollection.Add(txt2) For Each ctrl As Control In MyCollection If TypeOf (ctrl) Is TextBox Then GrammarCheck(DirectCast(ctrl, TextBox)) End If Next

---

le : If TypeOf (ctrl) Is TextBox Then
est inutile car il n'y a que des textbox dans la collection .. à moins d'y mettre aussi autre chose :wink:

ben oui du cout, c'est vrai tu a raison ... :D