Fonctiion API AnimateWindow

Salut,

code pris dans API-Guide :

Const AW_HOR_POSITIVE = &H1 'Animates the window from left to right. This
flag can be used with roll or slide animation.

Const AW_HOR_NEGATIVE = &H2 'Animates the window from right to left. This
flag can be used with roll or slide animation.

Const AW_VER_POSITIVE = &H4 'Animates the window from top to bottom. This
flag can be used with roll or slide animation.

Const AW_VER_NEGATIVE = &H8 'Animates the window from bottom to top. This
flag can be used with roll or slide animation.

Const AW_CENTER = &H10 'Makes the window appear to collapse inward if
AW_HIDE is used or expand outward if the AW_HIDE is not used.

Const AW_HIDE = &H10000 'Hides the window. By default, the window is shown.

Const AW_ACTIVATE = &H20000 'Activates the window.

Const AW_SLIDE = &H40000 'Uses slide animation. By default, roll animation
is used.

Const AW_BLEND = &H80000 'Uses a fade effect. This flag can be used only if
hwnd is a top-level window.

Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long,
ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean

Private Sub Form_Load()

'KPD-Team 1999

'URL: http://www.allapi.net/

'E-Mail: KPDTeam@Allapi.net

'Set the graphic mode to persistent

Me.AutoRedraw = True

Me.Print "Unload me"

End Sub

Private Sub Form_Unload(Cancel As Integer)

'Animate the window

AnimateWindow Me.hwnd, 200, AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_HIDE

'Unload our form completely

Set Form1 = Nothing

End Sub





"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de
news:uGFt0T2tEHA.1176@TK2MSFTNGP11.phx.gbl...

Bonjour,
Quelqu'un peut-il me dire précisément quel code utiliser pour me servir de
cette fonction API?
J'ai cherché, mais cela ne marche pas ou bien je n'ai pas
compris.

D'avance merci,

Jean-michel