Discussion :

[soso78]

Salut,

Bon, un truc simple que j'arrive pas à réaliser :

J'ai une série de textbox dans un tabcontrol qui contient plusieurs pages. Ceux-ci sont initialisés avec des valeurs par défaut.

Je voudrais modifier la valeur de propriétés lorsque je fais une certaine tache.

Plutôt que de faire :

Code :

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

1
2
3
Me.champ1.Readonly = True
Me.champ2.readonly = True
...

Je crois que l'on peut faire ça avec la boucle for each, mais je vois pas comment initialiser les contrôles.

Comment faites-vous ?

Merci par avance.

[balabonov]

http://www.developpez.net/forums/sho...d.php?t=445557

[soso78]

Ok, merci, j'avance.

Mais j'ai fait ça :

Code :

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

1
2
3
4
5
6
 
        Dim tb As TextBox
 
        For Each tb As Control In Me.Controls
            tb.BackColor = Color.White
        Next

J'ai le message :

La variable 'tb' masque une variable dans un bloc englobant.

Pourquoi ?

[lucfrfr]

essai avec

Code :

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

in me.tabcontrol

mais je pense que tu devrai mettre

Code :

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

for each tb in me.tabcontrol

[Skalp]

Code :

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

1
2
3
4
5
6
 
        Dim tb As TextBox
 
        For Each tb As Control In Me.Controls
            tb.BackColor = Color.White
        Next

Tu as ce message car tu déclares une variable tb de type TextBox et juste après, dans ton foreach, tu dis que tb est en fait de type Control...

Tu devrais suivre de plus près le code se trouvant sur le lien que te donne balabonov :

Code :

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

1
2
3
4
5
For Each tb As Control In Me.Controls
            If tb.GetType Is GetType(TextBox) Then
                ' traitement sur la textbox courante...
            End If
Next

Sauf que dans ce cas, tu ne parcours que les contrôles au niveau 0 de ta form.
Les controles d'une form sont hiérarchisés sous forme d'arbre. Donc, qui dit parcours d'arbre, dit... ?

[soso78]

Merci pour vos réponses, mais, j'ai cherché , et je trouve pas .

Je ne vois pas... :

Donc, qui dit parcours d'arbre, dit... ?

J'ai essayé plusieurs méthodes. En fait, dans celle-ci :

Code :

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

1
2
3
4
5
6
        Dim c As Control
 
        For Each c In Me.TabContact.Controls
            If (TypeOf (c) Is TextBox) Then
                c.BackColor = Color.White
            End If

Je n'ai plus ma propriété ReadOnly.

J'ai eu beau regardé dans le forum, et sur le topic donné, mais ...

Help !

[olsimare]

Bonjour.

Il faut caster c en textbox pour avoir accés au Readonly :

Code :

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

1
2
3
4
5
6
7
8
 
For Each c In Me.TabContact.Controls
   If (TypeOf (c) Is TextBox) Then
      dim tb as texbox = ctype(c, textbox)
      tb.BackColor = Color.White
      tb.readonly = true
   End If
Next

Et, qui dit arbre dit traitement récursif.

Cdt et bonne fête.