Discussion :

[robyseb]

Bonjour !

j'ai créer un formulaire avec 70 rectangle sur lequel je voudrait insérer une procédure sur le On_Click.

j'ai ne sait pas trop comment m'y prendre pour affecter les procédure à un évènement par exemple ;

Code :

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

1
2
3
4
5
6
Private sub Form_Load()
    ' parcours l'entete de formulaire
    For Each ctrl In Form.Section(acDetail).Controls
        If TypeOf ctrl Is Rectangle Then
            ' on active l'événement
            ctrl.OnClick = "[Event Procedure]"

j'aurait public sub Couleur1_Click() à Public Sub Couleur70_Click()

Mon Évènement serait :

Code :

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

1
2
3
Private Sub Couleur1_Click()
GetDcColor 'Une Fonction dans un module externe !
End Sub

Je suis un peu perdu j'espère avoir de l'aide merci

[ClaudeLELOUP]

Bonjour,

J'ai compris que tu voulais éviter de devoir coder septante* fois la même chose.

Tu pourrais y arriver simplement comme ceci :

- créer une macro qui exécute ton code ;
- affecter cette macro à l'événement clic de tes rectangles : il suffit de les sélectionner tous et de saisir le nom de la macro dans la propriété "Sur clic".



* pas pu résister à exprimer ma belgitude.

[robyseb]

Bonjour Claude !

Exactement Mais le principale est que si je fait des changement ils seront répercuté à chaque ouverture !!

Si on reprend l'exemple que j'ai mit : Le fait de mettre seulement

Code :

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

GetDcColor

Dans l'Évenement ne reviendrait pas au même que de créer une macro et de l'affecter à la procédure Click().

Si tu a une idée comment rajouter ce qu'il me manque à mon code je suis preneur

Code :

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

1
2
3
4
5
6
7
Private sub Form_Load()
    ' parcours l'entete de formulaire
    For Each ctrl In Form.Section(acDetail).Controls
        If TypeOf ctrl Is Rectangle Then
            ' on active l'événement
            ctrl.OnClick = "[Event Procedure]"
End Sub

[ClaudeLELOUP]

Je ne comprends pas le résultat que tu veux obtenir.

Explique avec des mots (pas avec du code !) ce que tu veux faire.

Poste le code de la fonction "GetDcColor".

[robyseb]

Bonjour !

J'ai créer un formulaire que j'ai appeller ColorPicker.

donc j'ai 70 rectangle de couleur, donc lorsque je clique sur l'un d'eux la fonction GetDcColor récupère la couleur sous le pointeur au moment de l'appel de la fonction !!

Donc je désire à l'ouverture du formulaire créer une routine qui va affecter à chaque rectangle sur le rectangle_Click() l'Appel de GetDcColor. À moin qu'il y est une autre méthode, je pensait que se serait la façon de faire.

Peu importe le contenu de la fonction moi tous ce que je désirerai faire c'est de l’appeler au moment du clic !!

cordialement,

[ClaudeLELOUP]

Pour l'instant, j'ai cru comprendre que tu as 70 rectangles.
Ces rectanges ont chacun une couleur différente.
La code de cette couleur se trouve dans la propriété "Couleur fond" de chaque rectangle.
Par exemple 255 pour rouge, 65535 pour jaune, 16777215 pour blanc.

Que veux-tu faire avec ce formulaire ?