Ouvrir des forms avec divers effets

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

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.