Discussion :

[Danyel]

Salut All,

J'ai un petit probleme que je n'arrive pas a resoudre.
J'affiche un petit formulaire d'informations par appel : FormX.ShowDialog()
Dans ce form, il y a un timer qui gere le temps d'affichage de celui-ci et qui le ferme automatiquement.
Jusqu'a là aucun probleme et ca roule parfaitement.

Par contre, je voudrais que si l'utilisateur pose la souris (enfin son curseur lol) sur ce meme form, le timer s'arrete et empeche la fermeture du meme coup.
J'utilise donc :

Code :

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

1
2
3
4
5
Private Sub FormX_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
 
        TimerX.Enabled = False
 
End Sub

Code :

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

1
2
3
4
5
6
Private Sub FormX_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
 
        Beep()                                                ' Pour tester
        'Me.Close()
 
End Sub

Et bien le probleme est que lorsque je deplace le curseur, sans sortir de la fenetre, ca beepe sans arret !!!
En fait, et en cherchant un peu, je me suis apercu que c'est la meme chose si je pose le beep dans MouseEnter ou dans MouseLeave.

Conclusion, l'appel se produit lors du deplacmeent et non pas uniquement sur l'entree ou la sortie.
Qq peut il m'aider a resoudre cela.
Merci All.

[tomlev]

Le beep, il se produirait pas quand tu entres et sors des contrôles de la Form ?
Parce que l'évènement MouseLeave de la Form se produit dès que la souris entre dans un contrôle enfant, pas seulement si tu sors du cadre de la form... idem pour MouseEnter, dès que la souris sort d'un contrôle enfant vers la Form, il se produit aussi

[Danyel]

Je viens de controler et on dirait bien que tu ai raison tom.
L'evenement a bien l'air de se produire à chaque entree/sortie des controles de la form.
Alors ce n'est pas cela qu'il me faut.

Une idee sur comment faire pour mon probleme ?

[tomlev]

Jette un oeil à la propriété Capture
Si tu la mets à true, la form capture les évènements de la souris même si le curseur est au dessus d'un contrôle enfant (un peu comme la propriété KeyPreview pour les évènements clavier). Par contre ça a l'air d'introduire des comportements bizarres... à tester

[Danyel]

Par contre ça a l'air d'introduire des comportements bizarres... à tester

lol ca me donne pas trop envie d'y mettre les mains

[smyley]

Ne serait-il pas plus simple de tester, par exemple chaque seconde, si la position de la souris est contenue dans les coordonnées de la form parente ?

[SaumonAgile]

Et les événements d' activation/désactivation du formulaire ne correspondraient pas à ce que tu cherches ?

[olsimare]

Bonjour.

Si le but est simplement d'arrêter le timer, alors, tu ajoutes la gestion de l'event mouseenter via Addhandler en poitant sur un sub MouseEntrerProc (par exemple) et tu la supprimes dans la proc MouseEntrerProc qui arrête le timer via removehandler.

PS : je déteste le sub biduleprod() handles me.machin...

Cdt.

[Danyel]

Ne serait-il pas plus simple de tester, par exemple chaque seconde, si la position de la souris est contenue dans les coordonnées de la form parente ?

Ca peut etre une solution, vu que la fenetre ne peut pas etre deplace ...
Je garde sous le coude.

Et les événements d' activation/désactivation du formulaire ne correspondraient pas à ce que tu cherches ?

Qu'entends tu par activation/desactivation ?

Si le but est simplement d'arrêter le timer, alors, tu ajoutes la gestion de l'event mouseenter via Addhandler en poitant sur un sub MouseEntrerProc (par exemple) et tu la supprimes dans la proc MouseEntrerProc qui arrête le timer via removehandler.

Le probleme n'est pas tout a fait ca olsi, car gerer l'entree de la souris puis mettre sur off le timer, ca n'est pas vraiment un probleme meme si l'appel est multiple.
Le probleme, c'est pour la sortie, car dans l'teat actuel, il se declenche à chaques sorties d'un controle de la form et non pas de la form elle-meme.

Je me demande, si je mets un panel non visible recouvrant toute la fenetre et gerer la mouse enter/exit à partir de là ... j'ai pense à ca dans la nuit ... faut voir sur le terrain si ca peut fonctionner.

[olsimare]

Re.

Tu veux aussi redémarrer le timer sur le leave ?

Dans ce cas (c'est bestial comme solution), je passerais par un IMessageFilter.PreFilterMessage sur le WM_MOUSEMOVE (= 512) et je gérerais le enter et le leave "à la main" en testant que la souris est/n'est pas dans le .bound.

Cdt.

[Danyel]

Tu veux aussi redémarrer le timer sur le leave ?

Non, je veux fermer la dite fenetre.

[olsimare]

Re re Dany.

Et bien pareil ! Un coup de prefiltermessage et hop !

Edit : Faut aller dormir maintenant ...
Cdt.

[Danyel]

Re re re Olsi,

Bon pour le moment, ce que tu me dis, c'est du Chinois
Vais aller faire un tour sur msdn voir un peu ce qu'il me dit sur ta proposition.
Euh quoi que j'irais demain pas vu l'heure !!!
Si jamais t'as un truc deja fait dans le genre pour m'aider, ca sera cool
Bonne nuit all.

[olsimare]

Bonjour.

Et bien ce que je propose ne marchera pas (désolé) si tu n'es pas dans une appli type MDI car le MessageFilter ne recevra pas le WM_MOUSEMOVE quand la souris est en dehors d'un objet de l'appli.

Donc on pourrait passer par un Hook global, mais là c'est vraiment sortir l'artillerie trés lourde ...

Par contre, en jouant sur la position de la souris lors du Leave, ça doit pouvoir se faire, avec un truc du genre :

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
 
Public Class Form1
    Public Sub New()
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
        Me.BackColor = Color.Red
    End Sub
    Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
        Me.BackColor = Color.Green
    End Sub
    Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
        If Not MouseIsOnControl() Then
            Me.BackColor = Color.Red
        End If
    End Sub
 
    Private Function MouseIsOnControl() As Boolean
        Return Me.RectangleToScreen(Me.ClientRectangle).Contains(Control.MousePosition)
    End Function
End Class

Le seul bémol c'est que le MouseLeave et le MouseEnter concerne en fait la zone cliente d'où le (Me.RectangleToScreen(Me.ClientRectangle)) et si tu as une grosse bordure ça peut être génant.

Cdt.

[Danyel]

Salut Olsi,

A la premiere lecture de ton code, ca a l'air d'etre ce que je cherche.
Je vais faire les tests et pas de probleme pour la grosseur de la bordure qui est juste Fixed3D.
Je vous tiens au courant.

++ Danyel.

[Danyel]

Bon, les resultats sont tres satisfaisants et ca corresponds parfaitement à ce que je cherche, pour donner la possibilite à l'utilisateur de fixer la fenetre.
Toujours aussi efficace le olsi
Encore un grand merci à toi.