Détail de l'API - Visual Basic Research Center

~ Edito ~

12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

~ Annuaire VB ~

~ Partenaires ~

Retour à la liste des API

Fonction AnimateWindow

Declare Function AnimateWindow Lib "user32" ( _
                 ByVal hwnd As Long, _
                 ByVal dwTime As Long, _
                 ByVal dwFlags As Long) As Long
Versions :
. Windows 95/98 : A partir de 98
. Windows NT : Non
. Windows 2000/XP : Oui

Description :
Cette fonction a pour but d'afficher ou cacher une fenêtre en utilisant un effet spécial(fondu, roulement, implosion, explosion).
hwnd est le handle de la fenêtre sur laquelle on agit.
dwTime représente la durée de l'effet en millisecondes.
dwFlags est une combinaison des constantes ci-dessous.
En cas d'échec la fonction retourne 0, sinon une valeur différente de 0.

Remarque : pour utiliser AW_SLIDE, il faut préciser une (ou deux) directions.

Constante	Valeur	Définition
AW_HOR_POSITIVE	&H1	Anime la fenêtre de gauche à droite.
AW_HOR_NEGATIVE	&H2	Anime la fenêtre de droite à gauche.
AW_VER_POSITIVE	&H4	Anime la fenêtre du haut vers le bas.
AW_VER_NEGATIVE	&H8	Anime la fenêtre du bas vers le haut.
AW_CENTER	&H10	Réduction de la fenêtre vers son centre (avec AW_HIDE), et inversement (avec AW_ACTIVATE).
AW_HIDE	&H10000	Cache la fenêtre.
AW_ACTIVATE	&H20000	Active la fenêtre.
AW_BLEND	&H80000	Effet de "fondu" sur la fenêtre (si elle est au premier niveau).
AW_SLIDE	&H40000	Fait "rouler" la fenêtre.

Exemple d'utilisation :

' (Exemple de Alain Quinet - alain.quinet@free.fr)

' Dans un module, vous définissez la fonction qui suit :

Private Declare Function AnimateWindow Lib "user32" ( _
                 ByVal hWnd As Long, _
                 ByVal dwTime As Long, _
                 ByVal dwFlags As Long) As Long

' Dans l'évènement Form_Load (ou Form_Activate) d'une feuille,
' vous tapez le code suivant :
Private Sub Form_Load()
' Cet appel de fonction fera s'afficher progressivement la
' fenêtre de son centre vers ses bords
Debug.Print AnimateWindow(Me.hWnd, 10000, &H10 Or &H20000)
End Sub

Retour à la liste des API