Balayer les controls d'une form [Résolu]

Messages postés
53
Date d'inscription
mercredi 11 août 2004
Statut
Membre
Dernière intervention
11 juin 2010
- - Dernière réponse : DD05
Messages postés
53
Date d'inscription
mercredi 11 août 2004
Statut
Membre
Dernière intervention
11 juin 2010
- 1 mars 2007 à 18:57
Bonjour,

Je suis en VB6.

J'ai créé 40 Shapes de différentes couleurs sur une form.
Je voudrais les balayer 1 par un avec une boucle For I=1 to 40 et changer l'épaisseur de leur cadre (Shape1.BorderWidth).

Je pense qu'il est possible de le faire grace aux numéro d'index de chaque SHAPE mais je ne sais pas comment.

Si vous pouviez m'aider.

Merci

DD05
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61
3
Merci
Salut
Il te suffit de scanner tous les controls de ta forme :

Dim xx As Object
For Each xx In Me.Controls
   If TypeOf xx Is Shape Then
      Debug.Print xx.Name
      xx.BorderWidth = 3
   End If
Next xx

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 216 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Jack
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1
0
Merci
le fait de ne pas utiliser de groupe de controle est voulu?

Hvb aka Batto
bato.ltd at gmail.com
Commenter la réponse de hvb
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
31
0
Merci
Oui il est possible de le faire grace aux index. Mais as-tu attribuer un index à tes shapes à la création ????

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Commenter la réponse de cs_casy
Messages postés
53
Date d'inscription
mercredi 11 août 2004
Statut
Membre
Dernière intervention
11 juin 2010
1
0
Merci
Merci


Ca marche impécable avec la réponse de Jack.


DD05
Commenter la réponse de DD05