Animer un formulaire avec l'api animatewindow

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 908 fois - Téléchargée 38 fois

Contenu du snippet

Cet API permet de faire de jolis effets pour votre form.

Source / Exemple :


'Too ceux si dent leu fhormes :
Private Declare Function AnimateWindow Lib "user32" (ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Debug.Print AnimateWindow(Me.hWnd, 1000, &H1 Or &H20000)
'1000 étant la Vitesse de l'animation [Plus c petit plus ca Va Vite]
'Vous pouveZ changer l'effet du formulaire par un de ceuX-la :
'&H1 : Pour animer la fenêtre de gauche à droite
'&H2 : Pour animer la fenêtre de droite à gauche
'&H4 : Pour animer la fenêtre du haut vers le bas
'&H8 : Pour animer la fenêtre du bas vers le haut
'&H10 : Pour réduire la fenêtre vers son centre (avec AW_HIDE), et inversement (avec AW_ACTIVATE)
'&H10000 : Pour cacher la fenêtre
'&H20000 : Pour la réactiver
'&H80000 : Pour faire un effet de fondu sur la fenêtre
'&H40000 : Pour faire rouler la fenêtre
End Sub

Conclusion :


C'est jouli no ? :}~
bon'prog ;)

A voir également

Ajouter un commentaire Commentaires
Messages postés
106
Date d'inscription
vendredi 29 septembre 2006
Statut
Membre
Dernière intervention
6 mars 2012

Super comme source:

Cependant il reste un petit problème.
Lorsque je copie le code dans ma class form j'ai une erreur au niveau du :
"Me.hWnd"

erreur :

"hWnd n'est pas un membre de 'test.Form2'."

Ou test est le nom de mon projet et Form2 le nom du formulaire.
Messages postés
9
Date d'inscription
vendredi 8 avril 2005
Statut
Membre
Dernière intervention
16 mai 2005

sûrement tu peux m'aider, je veux déclarer une variable de type form et j'ai une erreur disant que le type est indéfini je ne sais quel Dll activer
a+
Messages postés
13
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
14 septembre 2004

Rien a dire excellent !!!!
Messages postés
104
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
28 septembre 2006

J'ai W2K sp3 , j'ai change l'autoredraw , etc et c'est tj noir dedans ...
Je comprend pas pourquoi.
Messages postés
45
Date d'inscription
dimanche 9 mars 2003
Statut
Membre
Dernière intervention
6 mai 2004

c kler excelent
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.