Ma forme est-elle active ? Test incohérent quand je bascule avec la barre de tâc

Question

Bonjour,


J'ai un code VB.Net dans lequel je teste si ma Form est active ou non. J'utilise les critères suivante : Me.Visible à True et Me.WindowState différent de WindowStateMinimized. Je gére les événements suivants dans le code de la Form : MyBase.Activated, MyBase.Deactivate, MyBase.VisibleChangedOr.

Lorsque je clique sur la barre de tâches pour faire basculer l'application, la détection ne fonctionne pas. Il semblerait que l'appui sur un bouton dans la barre des tâches ne change rien à l'état de la fenêtre correspondante, malgré le fait qu'un événement soit appelé.

J'ai même essayé les vieilles API GetForegroundWindow et GetActiveWindow trouvés en recherchant ici, mais pour l'instant sans succès, les Handles ramenés ne me donnent rien d'exploitable.

Existe-t'il il une manière de dire sans ambiguïté si ma Form est au premier plan ?

Merci d'avance,


@+

Benoît 'Mutos' ROBIN
http://hoshikaze.net

Mutos · Answer

Bonjour,


Erreur de ma part, c'est FormWindowState.Minimized  qu'il faut lire !


@+

Benoît 'Mutos' ROBIN

PCPT · Answer

salut
API GetForeGroundWindow.
si handle = ta form, bah voil&#224; ;)
++
PCPT   [AFCK]

Mutos · Answer

Slt pcpt,


Merci pour ta réponse, mais :) çà se trouve déjà ici 3 ou 4 fois et j'ai déjà essayé... Cf dans mon premier message : "J'ai même essayé les vieilles API GetForegroundWindow et GetActiveWindow trouvés en recherchant ici, mais pour l'instant sans succès, les Handles ramenés ne me donnent rien d'exploitable."

Justement, elles ne trouvent jamais ma Form et j'ignore ce quelles raménent en fait... Sinon tu comprend bien que je n'aurai pas posté la question ici ^-^
Il doit y avoir quelque chose de plus sioux... Je pense essayer de récupérer le nom de la Form active et de l'afficher quelque part. Est-ce que çà fait une différence si j'ai une Form en Always On Top dans l'application pour afficher ce que je retrouve, sachant que le Handle retourné par GetForegroundWindow ou GetActiveWindow ne correspond pas à cette Form non plus ? D'autre part, pour "ta form, bah voilà", tu fais bien Me.Handle dans la Form principale ou bien oMonAutreForm.Handle si c'est pas la même ?


@+

Benoît 'Mutos' ROBIN

PCPT · Answer

je suis sous VB6.
donc lRet = Get.....
si lRet = Me.Hwnd alors c'est celle l&#224;.
je regarde &#231;&#224; de plus pr&#232;s. d&#233;sol&#233; d'avoir survol&#233; ton topic^^

PCPT · Answer

testé, çà semble correct.... (mais VB6) un bouton, un timer ' exemple à partir du Guid-API Option Explicit ' Private Declare Function GetForegroundWindow Lib "user32" () As Long ' Private Declare Function Ellipse Lib "gdi32" _ (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long) As Long ' Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long ' ' Private Sub Form_Load() ' timer pour avoir largement le temps de perdre le focus Timer1.Enabled = False Timer1.Interval = 3000 End Sub ' ' Private Sub Command1_Click() Timer1.Enabled = True End Sub ' ' Private Sub Timer1_Timer() Dim lRet As Long lRet = GetForegroundWindow() Me.Cls If lRet = Me.hwnd Then Me.Print "PREMIER PLAN": Debug.Print "PREMIER PLAN" Else Me.Print "PAS AU 1er PLAN": Debug.Print "PAS AU 1er PLAN" End If lRet = GetDC(lRet) Ellipse lRet, 0, 0, 200, 200 Timer1.Enabled = False End Sub Coloration syntaxique automatique [AFCK] ton but est lequel exactement, savoir quand elle perd le focus? savoir quand elle le retrouve alors qu'elle était minimisée?

Mutos · Answer

Bonjour pcpt,


Mon problème c'est qu'apparemment ma Form ne se rend pas compte qu'elle perd le focus lorsqu'elle est minimisée dans la barre de tâches. De ce fait, mes fonctions d'entrée marchent toujours alors que je ne suis plus dans mon application, ce qui ne me va pas (zoom à la souris, etc...) et de plus je souhaite désactiver le rendu 3D lorsque l'application n'a plus le focus...

Je cherche encore un peu de mon coté...


@+

Benoît 'Mutos' ROBIN

PCPT · Answer

arf, ok. et bien va voir ma source "Focus SubClassing", &#231;&#224; devrait r&#233;pondre &#224; ta question
(sauf que c'est aussi du VB6).
@+ ;)

Mutos · Answer

Slt pcpt,


Merci de ta réponse, je regarde ta source au plus tôt. Peut-être sont-ce les événements que j'utilise qui ne sont pas les bons, d'ailleurs...


@+

Benoît 'Mutos' ROBIN

cs_Nurgle · Answer

Bonjour

Nurgle 
Il est plus ais&#233; d'&#234;tre sage pour les autres que pour soi-m&#234;me ! (La Rochefoucauld)

cs_Nurgle · Answer

(Arrg , d&#233;sol&#233; j'ai eu un probl&#232;me avec la FreeTextBox )

Je recommence :



Bonjour,



Tu es s&#251;r que l'&#233;ven&#234;nement LostFocus n'est pas d&#233;clench&#233; quand tu minimises ta Form ?

Cherche aussi du c&#244;t&#233; de l'&#233;v&#233;nement Deactivate, qui est l'&#233;quivalent de Leave, mais pour une Form.



C'est plut&#244;t bien expliqu&#233; ici : http://msdn.microsoft.com/library/fre/default.asp?url=/library/FRE/cpref/html/frlrfsystemwindowsformscontrolclassleavetopic.asp





Nurgle

Mutos · Answer

Bonjour Nurgle,


J'ai entendu de drôles de choses sur LostFocus et GotFocus, style ils ne se comportaient pas comme ils étaient décrits dans la doc, mais je vais aussi investiguer de ce coté et si je trouve quelque chose je vous le signale...


@+

Benoît 'Mutos' ROBIN

Mutos · Answer

Bonjour à tous,


Encore merci pour toute votre aide, qui a bien déblayé le terrain ^-^ Je crois avoir une solution, il faut que je la teste encore un peu, et ensuite je la débarrasse des affichages de test et je vous la passe. J'ai carrément abandonné les événements et je teste la visibilité à chaque tour de ma boucle de rendu. J'aimerai bien gâcher moins de CPU, mais je ne vois pas comment faire...


@+

Benoît 'Mutos' ROBIN

Ma forme est-elle active ? Test incohérent quand je bascule avec la barre de tâc

12 réponses

Discussions similaires