Discussion :

[informer]

Bonjour à tous,

J'ai un formulaire avec X boutons qui tous appellent la même fonction sous l’événement

• Click -> fonction1(Screen.ActiveControl.Name) pour les X boutons
• DblClic -> fonction2(Screen.ActiveControl.Name) pour les X boutons

Les fonctions appelées sous les événements Clic (fonction1) et DblClick(fonction2) ont comme paramètre, le nom de l’objet (Screen.ActiveControl.Name)

Je voudrais éviter de déclarer les événements Click & DblClick pour chaque bouton et donc capturer l’événement indépendamment de l’objet, en quelque sorte avoir Screen.ActiveControl.Event qui n'existe pas

Merci par avance pour toute aide

[marot_r]

Bonjour.

Pas sur de comprendre mais si tu n'as pas besoin de savoir quel bouton est appuyé il te suffit de supprimer le paramètre Screen.ActiveControl.Name. Tous tes boutons feront alors exactement la même chose.

Si tu as besoin d'un comportement différent pour chaque bouton alors il te faut soit une procédure événementielle par bouton soit un gros Select case dans ta fonction de traitement.

Un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
select case prmObjeAppelant.name
    case me.bouton1.name 
        'Faire quelque chose pour le bouton 1
 
    case me.bouton2.name 
        'Faire quelque chose pour le bouton 2
 
end select

Si ma réponse ne correspond pas à tes attentes met un exemple de ce que tu veux faire.

A+

[informer]

Bonjour marot_r

Merci pour la piste, je teste ta solution qui me paraît être ce que je cherchais !

Encore merci

[User]

Bonjour Informer et Marot

J'ai un formulaire avec X boutons qui tous appellent la même fonction sous l’événement

Tes boutons de commande sont-ils indicés avec des noms de la forme "bouton1","bouton2",...,"bouton32".

Cdlt,

[informer]

Bonjour User,

Non et je charge une capture de la forme pour mieux comprendre mon besoin

Pièce jointe 574742

Sur l'évenement Click du bouton et quelque soit le bouton j'appelle toujours les 2 mêmes fonctions

Code :

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

1
2
3
4
Private Sub LeBoutonCliqué_Click()
    fGetData (Screen.ActiveControl.Name)
    fSetSubForm (Screen.ActiveControl.Name)
End Sub

C'est toujours le même code soit tous les événements Click d'où ma demande d'avoir une fonction qui capture les évenements et permette d'identifier l'objet bouton et si c'est le cas alors appel des deux fonction avec Screen.ActiveControl.Name en paramètre

Merci encore pour votre aide

[Tortille]

Bonjour,
Dans la propriétés Sur clic du bouton XA tu mets: =NomDeFontion("XA")
Pareil pour tous tes boutons
Et dans le formulaire

Code :

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

1
2
3
4
Function NomDeFontion(NomControle as string)
    fGetData Me(NomControle)
    fSetSubForm Me(NomControle)
End Function

[User]

En complément, je me demande si l'argument est indispensable ?

Peut-être faudrait-il utiliser Screen.ActiveControl.Name dans les fonctions :

Code :

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

1
2
3
4
5
function fGetData()
Dim nomControle as string
nomControle = Screen.ActiveControl.Name
...
end function

Cdlt,

[marot_r]

Bonjour.

Ok c'est plus clair, voici l'astuce que je te suggère :

Met la fonction ci-dessous dans le code du formulaire :

Code :

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

1
2
3
4
public function btnForm_Click() 'Tu peux mettre le nom que tu veux et il FAUT que ce soit une fonction.
   fGetData (Screen.ActiveControl.Name)
   fSetSubForm (Screen.ActiveControl.Name)
end function

Après tu sélectionnes tous les boutons qui t'intéresse et dans l'événement Sur Clic tu mets :

Code :

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

=btnForm_Click()

car on peut appeler une fonction à partir de l'événement.

Cela va faire comme si tu avais créé une sub par bouton.

A+

[User]

ça me semble en effet un bon compromis entre le code de tortille et ma remarque

[informer]

Bon ça c'est le basic et ce n'est pas la solution que je recherche
Je ne veux pas déclarer l'événement click pour chaque bouton mais capturer l'événement au niveau du screen et tester si c'est sur un bouton et si c'est le cas envoyer screen.Activecontrole.Name

Donc a priori pas possible.

Merci à tous

[Tortille]

Bonjour,
Excuse, je suis parti comme un bourrin à côté de ta question, juste ce lien en rapport avec l'utilisation des objets Screen.

[informer]

Merci Tortille mais encore une fois il faut déclarer un événement sur un objet, dans l'exemple du lien

Code :

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

Private Sub lstMousePointer_Click()

C'est ce que je veux éviter

[marot_r]

Bonjour.

Une idée, essayer de capter l'événement au niveau du formulaire (genre Sur Clic), peut-être ?

Il y aurai toujours un objet avec un événement mais juste 1.

Sinon peut-être une API de Windows mais là on arrive dans ma zone de profonde incompétence.

A+

[informer]

marot_r
Il n'y aucun événement sur le formulaire qui capte tous les événements des objets du formulaire.
Donc peut être une API mais laquelle?

[marot_r]

bonjour.

Il y a un truc pour que les touches soient interceptée au niveau du formulaire, (aperçu des touches) mais en effet il ne semble pas y avoir la même chose au niveau des événements.

Pour l'API aucune idée et je ne sais même pas si elle existe. Quelque chose qui a avoir avec les fenêtres.

A+

[informer]

marot_r,

Voici un lien ICI merci Gustav Brock ! permettant de charger une démo qui répond à mon problème à quelques modifications près notamment sur le type d'objet.

Il faut :

Code :

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

1
2
Définir une classe
Utiliser WithEvents

Pour plus d’info Cliquez ici

[marot_r]

Bonjour.

En effet c'est intéressant … par contre documente super bien ta solution en expliquant comment s'en servir car c'est assez atypique.
Il y a des chances que la personne qui vienne après toi n'y comprenne rien.
Il y a peu de gens qui connaissent le WithEvents et s'en servent.

Donc je mettrai des choses comme :

dans la partie module

Code :

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

1
2
'Déclarer ici tous les boutons partageant un même événement 
'Le code associé au bouton est dans le module de classe [ici le nom du module].

dans le Load

Code :

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

'Assigner les boutons réels aux boutons mutualisés.

Pas juste le code brut de décoffrage.

A+

[informer]

La solution Ici

[informer]

URL du code base de l'exemple modifié -> Cliquez ici

[informer]

Liens ici pour plus d'exemples