Ouvrir des forms avec divers effets

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 648 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

cs_Jack
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
59 -
Salut jrbleboss
C'est rigolo comme tout !
Manque juste un Me.Refresh à la fin pour rafraichir la forme et lui dedonner son aspect initial.
vpcorpprog
Messages postés
36
Date d'inscription
mardi 9 mars 2004
Statut
Membre
Dernière intervention
18 octobre 2005
-
pas mal
Huugooo
Messages postés
122
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
2 juillet 2014
-
On ne peut pas l'avoir directement dans les bonne couleurs ?
Tout est en noir pendant l'animation, ou alors c'est chez moi ?
Sinon c pas mal !
atchoumdu51
Messages postés
194
Date d'inscription
jeudi 1 janvier 2004
Statut
Membre
Dernière intervention
16 juillet 2007
1 -
c'est pas mal du tout

il y a juste les images et le fond de la form qui apparaissent noir pendant l'animation masi c'est très simple et fluide
sarl_adc
Messages postés
143
Date d'inscription
lundi 3 novembre 2003
Statut
Membre
Dernière intervention
20 octobre 2005
-
Pas mal cette fonction !!

Dommage que ce soit tout "caca" lors de l'animation.
Apparemment tout le monde a ce pb, personne ne sait d'où cela provient ??

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.