Accéder aux proprietes d'un rectangleshape creer dynamiquement

Signaler
Messages postés
4
Date d'inscription
samedi 7 mai 2011
Statut
Membre
Dernière intervention
28 janvier 2014
-
Messages postés
4
Date d'inscription
samedi 7 mai 2011
Statut
Membre
Dernière intervention
28 janvier 2014
-
Bonjour,

Comment mettre le focus sur un rectangle créé dynamiquement pour en changer APRES COUP les propriétés comme la couleur??

Dans le forme j'ai créé une série de rectangles dynamiquement.
Après coup comment les retrouver?

Merki

3 réponses

Messages postés
14760
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
19 janvier 2021
151
Bonjour,

Quelle méthode utilises-tu pour dessiner ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
Messages postés
14
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
9 avril 2013

Salut Killy

Avec une boucle tu parcours tes controls.

 For Each control In Me.Controls

            If TypeOf control Is ShapeContainer Then

                For Each shape In DirectCast(control, ShapeContainer).Shapes
                    If TypeOf shape Is RectangleShape Then
                        Dim rect = DirectCast(shape, RectangleShape)
                        'Change la couleur de la bordure
                        rect.BorderColor = Color.Blue
                    End If

                Next

            End If
        Next


Bon courrage
Messages postés
4
Date d'inscription
samedi 7 mai 2011
Statut
Membre
Dernière intervention
28 janvier 2014

Magique !

Merci pour ta solution.

Une fois mon programme fini je le posterai.

Je cherche depuis tellement de jours.

Beaucoup de questions de posters mais guère de solutions qui tournent.