EFFETS DE FONDU ANIMÉS (TRANSPARENCE/OPACITÉ) SUR LES FENÊTRES
Dragonmaster
Messages postés
126
Date d'inscription
vendredi 20 août 2004
Statut
Membre
Dernière intervention
3 avril 2009
-
3 nov. 2004 à 15:13
wa7ch3000 Messages postés 336 Date d'inscription jeudi 21 août 2008 Statut Membre Dernière intervention 19 juillet 2015 - 8 nov. 2010 à 16:41
wa7ch3000 Messages postés 336 Date d'inscription jeudi 21 août 2008 Statut Membre Dernière intervention 19 juillet 2015 - 8 nov. 2010 à 16:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/27301-effets-de-fondu-animes-transparence-opacite-sur-les-fenetres
https://codes-sources.commentcamarche.net/source/27301-effets-de-fondu-animes-transparence-opacite-sur-les-fenetres
8 nov. 2010 à 16:41
9 août 2006 à 15:31
J'avais jamais fait gaffe que AnimateWindow gérait le fondu... Enfin cette fonction rend la fenetre toute noir et laisse une bande noire au dessus de la barre de titre de la fenetre, donc ma méthode a encore de l'intérêt (ouf ^^)
9 août 2006 à 15:20
Et oui, c'est vrai, j'ai oublié de le modifier. Vu que je l'ai testé pour voir ce que ça faisait...
Merci de ton attention !
(je testerai pour l'API des touches...)
++
9 août 2006 à 15:16
"Debug.Print" à remplacer par "Call" (sinon çà ne fonctionnera qu'en IDE ;) )
7 août 2006 à 01:09
sympa ta source. je m'en servirai certainement comme base pour mieux exploiter les APIs.
Essaie aussi de rajouter cette API :
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, _
ByVal dwTime As Long, _
ByVal dwFlags As Long) As Long
Cet appel de fonction fera s'afficher progressivement la
fenêtre de son centre vers ses bords :
Debug.Print AnimateWindow(Me.hWnd, 10000, &H10 Or &H20000)
Constantes pour dwFlags :
AW_HOR_POSITIVE = &H1 Anime la fenêtre de gauche à droite.
AW_HOR_NEGATIVE = &H2 Anime la fenêtre de droite à gauche.
AW_VER_POSITIVE = &H4 Anime la fenêtre du haut vers le bas.
AW_VER_NEGATIVE = &H8 Anime la fenêtre du bas vers le haut.
AW_CENTER = &H10 Réduction de la fenêtre vers son centre (avec AW_HIDE), et inversement (avec AW_ACTIVATE).
AW_HIDE = &H10000 Cache la fenêtre.
AW_ACTIVATE = &H20000 Active la fenêtre.
AW_BLEND = &H80000 Effet de "fondu" sur la fenêtre (si elle est au premier niveau).
AW_SLIDE = &H40000 Fait "rouler" la fenêtre.
Si tu peux le faire, ce sera tjs un 'bonus' de plus dans ta source ;)
++
6 mars 2005 à 21:52
en effet, je parle bien de découper une forme (en lui otant une couleur.... la rendre invisible), puis de rendre transparente (0 à 255) la forme "découpée"
mais la simple utilisation successive de "SetLayeredWindowAttribute" pour invisible, puis transparent (ou l'inverse), ne fonctionne pas.
(seul le dernier appel est pris en compte)
par contre, en utilisant "SetWindowLong" (comme détaillé au dernier post), çà fonctionne bien, mais la feuille n'apparaît plus dans la barre des tâches, ce qui est génant pour mon usage... :-\
une idée?
PCPT
6 mars 2005 à 21:28
d'accord je vois ce que tu veux dire et quelle est ta question. Tout d'abord je n'ai jamais entendu parler d'une telle source, mais je ne les connais pas toutes lol.
Par contre quand tu dis combiner les 2, tu veux dire "découper" la form avec une couleur PUIS rendre la form découpée transparente ? La c'est possible il suffit d'appliquer les api les une à la suite des autres.
Par contre si tu voulait dire rendre transparent la form mais pas au meme niveau sur toute sa surface, c'est transparent en fonction de la couleur.... et dans ce cas je n'ai jamais entendu parler d'une telle source mais je ne les connais pas toutes lol
6 mars 2005 à 14:12
hWnd pour la form
crKey pour la couleur à rendre invisible
bAplha pour le degré de transparence
dwFlags pour le choix entre invisible et transparent
donc pour rendre une forme transparente (170/255)
et lui rendre totalement ses coins roses (&HFF00FF), je fais
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, WS_EX_LAYERED)
If Transparence = True Then
Call SetLayeredWindowAttributes(Me.hwnd, &HFF00FF, Alpha, &H3)
Else
Call SetLayeredWindowAttributes(Me.hwnd, &HFF00FF, 255, &H3)
End If
ça fonctionne, mais la fom n'est plus dans la barre des tâches, donc tout ce qui y est lié, ensuite,
bah ah marche pu !!!
si t'en as le temps et l'envie, j'ai mis la source ici
http://www.vbfrance.com/code.aspx?ID=29918
merci
PCPT
6 mars 2005 à 11:19
4 mars 2005 à 22:18
bon, j'ai un problème avec ce genre de sources, il y en a plein, à peu près toutes les mêmes. si j'ai bien compris le principe, on peut soit rendre la fenêtre transparente à un certain degré (0 à 255), soir une couleur spécifique à 100%.
y'a t'il une manière de cumuler les 2?
merci..
PCPT
3 nov. 2004 à 19:29
3 nov. 2004 à 19:10
L'effet est "plus visible" quand la fenêtre est maximisé.
Chapô pour l'effet de fondu !
3 nov. 2004 à 15:53
3 nov. 2004 à 15:13