Discussion :

[LeXo]

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

[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 !

[Vld44]

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

[pc75]

Bonjour,

Avec un truc comme ça :

Code :

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

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

[Vld44]

X qu'est-ce que c'est ?

[pc75]

Re,

X qu'est-ce que c'est ?

C'est la form :

Code :

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

1
2
 
For Each Control In Me.Controls

[Vld44]

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

[LeXo]

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 :

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

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 :

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

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 :

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

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

[LeXo]

aaaaaaah tu as compris !!

[OhMonBato]

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

Code :

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

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

[LeXo]

figure toi que je l'ai fait

mais j'ai toujours un souci sur

control.visible

[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 ?

[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