3/5 (12 avis)
Snippet vu 6 097 fois - Téléchargée 30 fois
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
3 juil. 2004 à 14:05
ANIMER UNE FENÊTRE AVEC ANIMATEWINDOW (SANS L'EFFET NOIR DANS LA FENÊTRE)
http://www.vbfrance.com/code.aspx?ID=7919
19 juin 2004 à 09:29
15 juin 2004 à 10:07
AnimateWindow Me.hWnd, 5000, &H80000
sans parentese et sans debug.print
15 juin 2004 à 09:14
15 juin 2004 à 09:07
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.