- 'Déclarations :
-
- 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 HWND_NOTOPMOST = -2
- Global Const SWP_NOACTIVATE = &H10
- Global Const SWP_SHOWWINDOW = &H40
-
-
- Feuille :
-
- 'Active le "Toujours visible"
- SetWindowPos Feuille1.hWnd, HWND_TOPMOST, Feuille1.Left / 15, Feuille1.Top / 15, Feuille1.Width / 15, Feuille1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
-
- 'Désactive le "Toujours visible"
- SetWindowPos Feuille1.hWnd, HWND_NOTOPMOST, Feuille1.Left / 15, Feuille1.Top / 15, Feuille1.Width / 15, Feuille1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
-
-
'Déclarations :
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 HWND_NOTOPMOST = -2
Global Const SWP_NOACTIVATE = &H10
Global Const SWP_SHOWWINDOW = &H40
Feuille :
'Active le "Toujours visible"
SetWindowPos Feuille1.hWnd, HWND_TOPMOST, Feuille1.Left / 15, Feuille1.Top / 15, Feuille1.Width / 15, Feuille1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
'Désactive le "Toujours visible"
SetWindowPos Feuille1.hWnd, HWND_NOTOPMOST, Feuille1.Left / 15, Feuille1.Top / 15, Feuille1.Width / 15, Feuille1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW