Accéder aux proprietes d'un rectangleshape creer dynamiquement

killy1 Messages postés 4 Date d'inscription samedi 7 mai 2011 Statut Membre Dernière intervention 28 janvier 2014 - 5 mai 2012 à 14:35
killy1 Messages postés 4 Date d'inscription samedi 7 mai 2011 Statut Membre Dernière intervention 28 janvier 2014 - 6 mai 2012 à 11:30
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

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
5 mai 2012 à 15:15
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
0
cs_Zeny Messages postés 14 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 9 avril 2013
5 mai 2012 à 17:23
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
0
killy1 Messages postés 4 Date d'inscription samedi 7 mai 2011 Statut Membre Dernière intervention 28 janvier 2014
6 mai 2012 à 11:30
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.
0
Rejoignez-nous