Événement lorsqu'un feuille est cliquée

Amonbofis - 22 janv. 2000 à 08:57
 Jo Ace - 1 avril 2000 à 18:17
Quelqu'un sait comment on fait pour exécuter un
événement dès qu'on clique le titre d'une application?

Je m'explique, j'aimerais démarrer mon Application 'A',
de cette dernière je démarre l'Application 'B'. Le focus est,
logiquement, sur l'application 'B'.

Maintenant, lorsque je clique le titre (la barre qui contient
le nom tout à fait en haut) j'aimerais que mon application 'A'
s'en aperçoive là.

J'ai essayé Activate et GotFocus. Elles ne s'exécutent que
lorsque je tente d'activer un choix dans mes menus (j'ai un
SSTab couvrant complètement le fond de ma feuille alors
ces événements ne peuvent pas venir par là).

Je dois sous-classer ou quoi? Si oui, qqun as la moindre idée,
tutoriels, sources, etc....

Un gros merci à tou(te)s celles/ceux qui se pencherons sur
la question.

1 réponse

Voici la source :

Declare Function GetActiveWindow Lib "user32" () As Long

Function WinActive(frm As Form) As Boolean
If frm.hWnd<>GetActiveWindow then WinActive=False else WinActive=True
End Function

Tu n'as plus qu'à faire
If WinActive(Me)=True Then...
pour savoir !!
0
Rejoignez-nous