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
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
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 !
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 : 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
X qu'est-ce que c'est ?
Re,
C'est la form :Envoyé par Vld44
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 For Each Control In Me.Controls
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 çà :
mais je voudrais quelquechose de plus dynamique
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
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)
.....
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.
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
figure toi que je l'ai fait
mais j'ai toujours un souci sur
control.visible
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 ?
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![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager