Discussion :

[tilb]

Bonjour,
Je cherche à faire afficher un formulaire en avant plan, au dessus de toutes les autres fenêtres, mais ne prenant pas le focus. En fait, je recherche à faire comme certains logiciels de courriel type Outlook, qui affichent un petit popup à chaque nouveau message.
Après plusieurs recherches sur le web, je ne trouve rien de convainquant...
Merci d'avance pour votre aide,
Florian

[tomlev]

Pour mettre une fenêtre devant toutes les autres, normalement on met la propriété TopMost à True.

Pour que la fenêtre ne prenne pas le focus quand tu l'affiches, il faut overrider la propriété ShowWithoutActivation pour qu'elle renvoie True :

Code :

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

1
2
3
4
5
    Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
        Get
            Return True
        End Get
    End Property

Par contre, ces 2 options ne se combinent pas... si TopMost est à True, ShowWithoutActivation n'a aucun effet et la fenêtre prend quand même le focus... donc il faut ruser, en mettant "manuellement" le style WS_EX_TOPMOST. Pour cela il faut overrider CreateParams. Au passage, on en profite pour ajouter le style WS_EX_NOACTIVATE, de façon à ce que la fenêtre ne puisse pas avoir le focus ni apparaitre dans le dialogue Alt-Tab.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Const WS_EX_NOACTIVATE As Integer = &H8000000
    Const WS_EX_TOPMOST As Integer = &H8
 
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Dim prm As CreateParams = MyBase.CreateParams
            prm.ExStyle = prm.ExStyle Or WS_EX_TOPMOST
            prm.ExStyle = prm.ExStyle Or WS_EX_NOACTIVATE
            Return prm
        End Get
    End Property

[tilb]

Merci mille fois !
Ca faisait un bout de temps que je cherchais....
Problème résolu, en plus en quelques lignes...
Merci