Discussion :

[zentaf]

Comment maintenir une feuille au premier plan?
(Sous VB6)

[ProgElecT]

dans un module

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

dans la Form

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

[zentaf]

Merci pour votre aide...
Salutations...