Comment maintenir une feuille au premier plan?
(Sous VB6)
Comment maintenir une feuille au premier plan?
(Sous VB6)
dans un module
dans la Form
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 Option Explicit 'pour placer la feuille au premier plan Public Const HWND_TOPMOST = -1 'recouvre pas la barre de tache de windows Public Const HWND_NOTOPMOST = -2 'ne recouvre pas la barre de tache de windows Public Const SWP_NOACTIVATE = &H10 Public Const SWP_SHOWWINDOW = &H40 Public 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) Public Sub PremierPlan(frm As Form) 'pour placer la feuille au premier plan SetWindowPos frm.hwnd, HWND_TOPMOST, frm.Left / 15, _ frm.Top / 15, frm.Width / 15, _ frm.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub Form_Activate() PremierPlan Me 'pour placer la feuille au premier plan End Sub
:whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
saut de ligne
OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈
Partager