Maximisation et minimisation d'une fenêtre

"Nicolas" <nicolasheurtevin@wanadoo.fr> a écrit dans le message de
news:09a401c3ba4d$f675a8a0$a301280a@phx.gbl

J'aimerais intercepter l'évènement de maximisation ou de
minimisation d'une fenêtre, savoir en fait si
l'utilisateur est entrain de réduire ou d'agrandir un
fenêtre.

J'ai bien essayé avec l'évenement Form_Resize et la
propriété WindowState mais ça ne me donne l'état de la
fenêtre qu'après/avant agrandissement/réduction mais
jamais pendant.

Je voudrais pouvoir afficher un truc du genre :
- vous avez agrandit la fenêtre
- vous avez réduit la fenêtre

Si quelqu'un peut m'éclairer.

Bonjour/soir,

Tu peux essayer de sous classer la fenêtre.
Voici un exemple utilisant un composant de sous classement quelconque:
Option Explicit

Private Const WM_SYSCOMMAND = &H112
Private Const SC_MAXIMIZE = &HF030&
Private Const SC_MINIMIZE = &HF020&
Private Const SC_RESTORE = &HF120&

Private WithEvents SubClass As SubclassIt.SubClassing

Private Sub Form_Load()
Set SubClass = New SubClassing
SubClass.SubClass Me.hWnd 'Sous casse la form
End Sub

Private Sub Form_Unload(Cancel As Integer)
SubClass.UnSubclassAll
Set SubClass = Nothing
End Sub

Private Sub SubClass_Message(ByVal hWnd As Long, ByVal Msg As Long, ByVal
wParam As Long, ByVal lParam As Long, SetNewValue As Boolean, NewValue As
Long)
Select Case Msg
Case WM_SYSCOMMAND
Select Case wParam
Case SC_MAXIMIZE
MsgBox "Grand!"
Case SC_MINIMIZE
MsgBox "Petit"
Case SC_RESTORE
MsgBox "Normal"
End Select
End Select
End Sub

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com