1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Ouvrir des forms avec divers effets

Ouvrir des forms avec divers effets

3/5 (12 avis)

Snippet vu 6 097 fois - Téléchargée 30 fois

Commenter

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
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
 7
3 juil. 2004 à 14:05
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
1114
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
19 juin 2004 à 09:29
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
 2
15 juin 2004 à 10:07
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
15 juin 2004 à 09:14
Ah ok !
sarl_adc
Messages postés
141
Date d'inscription
lundi 3 novembre 2003
Statut
Membre
Dernière intervention
20 octobre 2005
15 juin 2004 à 09:07
ymerej : En fait, la fonction Animatewindow renvoie une valeur.
A la place du debug.print tu peux mettre une variable de type Long.
Afficher les 12 commentaires
S'inscrire maintenant

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.

Du même auteur (jrbleboss)