Comment forcer l'affichage au premier plan ?????Résolu

Question

bonjour a tous

je travaille sur un poste informatique sur lequel tournent plusieurs applications simultan&#233;ment. Je travaille actuelement sur l'une d'entre elles. Celle ci surveille des niveaux et affiche une alerte en cas de d&#233;passement de limites. Je voudrais donc que cette fenetre vienne s'afficher en premier plan par dessus les autres applications afin d'alerter l'utilisateur. quelqun sait il comment faire cela ???

merci d'avance a tous . bonne journ&#233;e

Gobillot · Accepted Answer

Const HWND_TOPMOST = -1

Const HWND_NOTOPMOST = -2

Const SWP_NOSIZE = &H1

Const SWP_NOMOVE = &H2

Const SWP_NOACTIVATE = &H10

Const SWP_SHOWWINDOW = &H40



Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long,
ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal
cx As Long, ByVal cy As Long, ByVal wFlags As Long)



Private Sub Form_Activate()

    'KPD-Team 1998

    'URL: http://www.allapi.net/

    'E-Mail: KPDTeam@Allapi.net

    'Set the window position to topmost

    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Sub


Daniel

cs_DARKSIDIOUS · Answer

Utilise la fonction de l'API SetWindowPos pour d&#233;finir la fen&#234;tre &#224; afficher au premier plan, au dessus de toutes les autres.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

dgmc · Answer

ok c bon marche. Merci bien &#224; vous deux.

Bonne journ&#233;e