Ouvrir des forms avec divers effets

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 705 fois - Téléchargée 28 fois

Contenu du snippet

Le code ci-dessous permet d'ouvrir ses forms sous divers aspects(fondu, de la droite vers le gauche ect..)
Cela peut servir pour les gens ou les programmes coquets.

Source / Exemple :


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, 5000, &H1)
'ME est le handle de la fenêtre et 5000 le temps en millisecondes pour l'effet
'&H1 Anime la fenêtre de gauche à droite.
'&H2 Anime la fenêtre de droite à gauche.
'&H4 Anime la fenêtre du haut vers le bas.
'&H5 Anime la fenêtre de en haut à gauche vers en bas à droite.
'&H6 Anime la fenêtre en haut à droite vers en bas à gauche.
'&H8 Anime la fenêtre du bas vers le haut.
'&H9 Anime la fenêtre de en bas à gauche vers en haut à droite.
'&h10 Agrandissement de la fenêtre du centre vers les bords.
'&H80000 Effet de "fondu" sur la fenêtre (si elle est au premier niveau).
End
End Sub

A voir également

Ajouter un commentaire

Commentaires

Neo.balastik
Messages postés
797
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
4
Voir ma source complète sur le problème du form noir:

ANIMER UNE FENÊTRE AVEC ANIMATEWINDOW (SANS L'EFFET NOIR DANS LA FENÊTRE)

http://www.vbfrance.com/code.aspx?ID=7919
cs_azerty25
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

Pour éviter que la form soit noire, il faut purement écrire un vrai algo ;)
TheLordFreddy
Messages postés
157
Date d'inscription
mardi 9 décembre 2003
Statut
Membre
Dernière intervention
3 février 2005

ou ecrire tou simplement ca:
AnimateWindow Me.hWnd, 5000, &H80000
sans parentese et sans debug.print
cs_ymerej
Messages postés
165
Date d'inscription
vendredi 9 avril 2004
Statut
Membre
Dernière intervention
5 octobre 2007

Ah ok !
sarl_adc
Messages postés
143
Date d'inscription
lundi 3 novembre 2003
Statut
Membre
Dernière intervention
20 octobre 2005

ymerej : En fait, la fonction Animatewindow renvoie une valeur.
A la place du debug.print tu peux mettre une variable de type Long.

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.