boucle for each sur un groupe

Version imprimable

06/04/2007, 12h39
LeXo

boucle for each sur un groupe

Bonjour

je voudrais faire une boucle foreach

sur un groupe de controle

dans lesqueles j'ai 2 label et 1 image

mais je ne sais pas comment m' y prendre pourriez m'aider

d'avance merci
06/04/2007, 12h54
OhMonBato

Lexo, prends l'habitude stp de relire tes questions et de te mettre à notre place. Penses tu vraiment nous avoir donné toutes les informations utiles ?

Pourquoi ne pas dire ce que tu veux faire avec ces 3 controles ? Où sont ils regroupés ? Dans un frame ? Ce sont les seuls controles sur ta feuille ? Voois tu d'autres informations pertinentes ?

Quand tu as du code (je sais que ce n'est pas le cas ici), donne le systematiquement avec le code d'erreur renvoyé ainsi que la ligne uqi provoque l'erreur.

Ca devient un peu pénible de tout le temps devoir deviner. Faites un effort svp !
06/04/2007, 13h51
Vld44

Euh qu'est-ce que tu appelles un groupe de contrôles ? Je ne vois pas bien comment parvenir à faire ça

Bonjour,

Avec un truc comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    For Each Control In X.Controls
        If TypeOf Control Is label Or _
            TypeOf Control Is TextBox Or _
            TypeOf Control Is CommandButton Or _
            TypeOf Control Is ComboBox Or _
            TypeOf Control Is ListBox Or _
            TypeOf Control Is CheckBox Then
 
                Control.Font = vScreenFont
                Control.FontSize = vScreenFontSize
        end If
    Next Control

06/04/2007, 14h56
Vld44

X qu'est-ce que c'est ?
06/04/2007, 15h14
pc75
Re,

Citation:

Envoyé par Vld44

X qu'est-ce que c'est ?

C'est la form :
Code:

1 2 For Each Control In Me.Controls
06/04/2007, 15h18
Vld44

ok, mais lui parle d'un groupe de contrôles ... Je savais qu'on pouvait accéder aux contrôles d'une forme.

ah merci mais si je fais ça je vais effacer tous les controls de ma form

pour expliquer pour l'instant je m'en sors comme çà :
Code:

1 2 3 4 5 6 For i = 1 To 10 Me.LblDesig(i).Visible = False Me.TxtQuant(i).Visible = False Me.TxtTarif(i).Visible = False Me.Calculatrice(i).Visible = False Next i
mais je voudrais quelquechose de plus dynamique
Code:

1 2 3 4 5 6 7 For Each control In Me.Controls If TypeOf control Is Label Or _ TypeOf control Is TextBox Or _ TypeOf control Is PictureBox Then Me.control.Visible = False End If Next control
un groupe de controle c quand t'as plusieurs controles réunis autour d'un index
ça fait comme un tableau de type composé... eu je ne sais pas si tu me suis :

Citation:

textbox(1) picturebox(1) label(1)
textbox(2) picturebox(2) label(2)
textbox(3) picturebox(3) label(3)
.....

06/04/2007, 16h14
Vld44

Donc c'est pas un objet en particulier.

Tu disposes de plusieurs tableaux de contrôles indexés, voilà c'est clair !
Il te suffit de boucler sur chaque tableau (for each comme indiqué par PC75) et de disable dynamiquement.
06/04/2007, 17h31
LeXo

aaaaaaah tu as compris !!

Manque pas grand chose à ton code pour que ça marche, peut etre une declaration ;)

Code:

1
2
3
4
5
6
7
8
Dim Control As Object
For Each Control In Controls
    If TypeOf Control Is Label Or _
    TypeOf Control Is TextBox Or _
    TypeOf Control Is PictureBox Then
        Control.Visible = False
    End If
Next

06/04/2007, 18h18
LeXo

figure toi que je l'ai fait

mais j'ai toujours un souci sur

Citation:

control.visible
06/04/2007, 18h49
OhMonBato

bon, ce n'est pas la raison mais deja j'ai mis Control comme nom et ce n'est pas très malin, il faudrait mieux renommer ObjCtl par exemple pour éviter une confusion.

Sinon je viens de refaire l'essai et ça marche très bien, peux tu copier/coller ton code en incluant la déclaration que tu as faite ?
06/04/2007, 21h38
LeXo

jai reglé le probleme que j'avais

ça marche oui mais j'avais envie de mettre visible= false a mon groupe et pas a tous je vais bosser sur le code

et je devrais y arriver ;)