Titre: Fenêtre au-dessus
Description:
Permet de mettre une fenêtre au dessus de toutes les autres.
Le code:
Private Sub Command1_Click() SetWindowPos FrmDessus.hwnd, HWND_TOPMOST, FrmDessus.Left / 15, FrmDessus.Top / 15, FrmDessus.Width / 15, FrmDessus.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW End Sub |
Dans le fichier module:
Option Explicit 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) Global Const HWND_TOPMOST = -1 Global Const SWP_NOACTIVATE = &H10 Global Const SWP_SHOWWINDOW = &H40 |