Discussion :

[arnolem]

bonjour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Harry_polin]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If TypeOf (ctrl) Is TextBox

?

genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

...

(pardonne la syntaxe, je suis plutot C#)

[arnolem]

ben je vais voir, je sais pas la syntaxe justement

[Olivier Delmotte]

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

je vois pas trop ton problème en fait

[arnolem]

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 ...

[arnolem]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[neguib]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

(pardonne la syntaxe, je suis plutot C#)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

... Tu es pardonné

[dg78]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[arnolem]

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