Discussion :

[Neilos]

Re-bonjour à tous,

cette fois-ci je ne me suis pas trompé de champ lors de ma recherche sur le forum (lors de mon dernier post j'avais mis mes mots clef dans le champ destiné aux noms d'utilisateurs )

J'ai l'habitude en C++ Builder de pouvoir utiliser un gestionnaire d'évènement commun à plusieurs élements devant se comporter de manière analogue, en effet C++ Builder passe en paramètre de tout gestionnaire l'élement qui "Envoie" l'évènement.

Je souhaiterais faire quelque chose d'analogue sous Access 2002 : j'ai un nombre assez conséquent de Label qui doivent tous avoir le même comportement (lors d'un double clic ils changent de couleur par exemple).
Au lieu d'écrire à chaque fois la fonction j'aimerais pouvoir l'écrire une fois et que celle-ci détermine sur quel label on a cliqué et agisse en conséquence.

Pour l'instant ma fonction qui effectue les modifications sur le Label prend en paramètre le nom du Label et j'appel cette fonction dans chaque gestionnaire.

Pour résumer pour l'instant j'ai quelque chose 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
14
15
16
17
18
19
20
21
22
23
24
Private Sub ChangerCouleur( strLabelName As String )
   Dim lblActive As Label
   Set lblActive = Me(strLabelName)
 
   If IsNull(lblActive) Then
        MsgBox "Le label '" & strLabelName & "' n'existe pas. Impossible de modifier son état.", vbCritical, "Erreur - Label inexistant"
        Exit Sub
    End If
 
    ' Change la couleur du label = change l'état utilisé/pas utilisé
    If lblActive.ForeColor = CST_ACTIVATE_COLOR Then
        lblActive.ForeColor = CST_DEACTIVATE_COLOR
    Else
        lblActive.ForeColor = CST_ACTIVATE_COLOR
    End If
End Sub
 
Private Sub L_BATEAU_DblClick(Cancel As Integer)
    ChangerCouleur("L_BATEAU")
End Sub
 
Pirvate Sub L_BARQUE_DblClick(Cancel As Integer)
   ChangerCouleur("L_BARQUE")
End Sub

Et j'aimerais à me ramener à un seul gestionnaire DblClick.
Quelqu'un sait il comment déterminer sur quel Label on vient de cliquer ?
Est-ce possible avec

Code :

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

Screen.ActiveControl

?

Merci d'avance !

[vmolines]

Je sais que c'est moins propre qu'une gestion purement commune mais si tu fais une procédure gestionAffichage que tu appelles dans les évènement de chaque contrôle, ça irait ?

[Arkham46]

Salut,

A ma connaissance une étiquette ne prend pas le focus donc je crains que activecontrol ne fonctionne pas.

Par contre si tu transforme ta procédure en fonction tu peux directement mettre dans la propriété événement :

Code :

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

=ChangerCouleur("L_BATEAU")

Ou alors sinon peut-être avec WithEvents dans une classe si tu es motivé, mais je n'ai jamais esssayé avec des labels...Il doit y avoir moultes exemples sur le net.

[Neilos]

Je sais que c'est moins propre qu'une gestion purement commune mais si tu fais une procédure gestionAffichage que tu appelles dans les évènement de chaque contrôle, ça irait ?

Ca c'est ce que je fais actuellement et justement je trouve pas ça très propre :S

Par contre si tu transforme ta procédure en fonction tu peux directement mettre dans la propriété événement

Que veux tu dire par transformer ma procédure en fonction ?
Etant donné que les gestionnaire d'évènement sont du type

Code :

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

1
2
Private Sub MonLabel_Click()
End Sub

je ne devrais pas garder quelque chose du genre ?

[Neilos]

Je crois que je vois ce que tu veux dire : tu veux dire mettre ma procédure non plus dans le code du formulaire mais dans un module ?

[vmolines]

Si ta procédure gère le formulaire il n'est pas judicieux de la mettre dans un module. Sa place est bien dans les déclarations du formulaire (privée au formulaire).

[Arkham46]

ce que je voulais dire c'est :

Code :

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

1
2
Private function ChangerCouleur( strLabelName As String ) 
End Function

et à la place de [Procédure événementielle] dans la propriété Sur Click :

Code :

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

=ChangerCouleur("L_BATEAU")

à peu de chose près...

[Neilos]

Ok merci je vais essayer cela.
Mais étant donné que j'ai plusieurs formulaire différents qui auraient besoin de cette fonction je vais tenter de la mettre dans un module et de prendre aussi le nom du formulaire en paramètre.

Merci pour votre aide, je vous tiens au courant !

[vmolines]

Si tu veux changer des propriétés de groupe de contrôle en masse avec passage de formulaire en paramètre je te conseille ceci :

http://www.developpez.net/forums/vie...975772#1975772

C'est une source que j'ai posée comme ça, elle contient sûrement des erreurs. Aussi je t'aiderais à l'adapter et à la corriger si besoin.

[Arkham46]

si tu fais ça dans plusieurs formulaire alors tu peux directement passer le contrôle en paramètre :

Code :

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

=ChangerCouleur([L_BATEAU])

et

Code :

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

1
2
3
4
Private Function ChangerCouleur( strLabel As Control ) 
strLabel.ForeColor = ....
...
End Function

[Neilos]

Merci vmolines mais comme je ne modifie qu'un seul Label à chaque fois je n'ai pas besoin d'une boucle comme dans ta fonction (mais c'est vrai qu'elle peut être très utile).

Merci aussi à Arkham46, je vais tester cela...et el fait de pouvoir passer directement le contrôle en paramètre va alléger un peu mon code

Merci beaucoup à vous deux, je vais aller écrire tout cela de suite !

[Neilos]

Voila en passant les quelques objets dont j'ai besoin en paramètre cela fonctionne vraiment très bien.

Je vous remercie pour votre aide qui m'a été très précieuse