CCG des Fêtes
|
|
|
hello tous, voila la source avec quelques indications... vous pouvez bidouiller dans les transitions si le coeur vous en dit hehe sinon je vous mets en PJ le gif qui sert pour faire le fond de la carte qui s'ouvre moi je l'ai decore a vous de faire comme bon vous semble ;-) amusez vous bien hehe a + martine ********************************************************************************** <STYLE> BODY { COLOR: red; couleur de l'ecriture sur la carte FONT-FAMILY:comic sans ms police de caractere de la carte FONT-SIZE: 26pt; MARGIN:50px; tout ce qui est scroll bar est couleur de l'ascenseur scrollbar-3dLight-Color:#808080; scrollbar-Arrow-Color:#000044; scrollbar-Base-Color:#ffffff; scrollbar-DarkShadow-Color:#000000; scrollbar-Face-Color:#ffffff; scrollbar-Highlight-Color:#ffffff; scrollbar-Shadow-Color:#000000; scrollbar-Track-Color:#f4f4f4} </STYLE> <SCRIPT language=VBScript> '---------------------------------------------------------------------------- ' Original Greeting Card, by Bill Scott '---------------------------------------------------------------------------- ' All HTML and script by Bill Scott, March, 2000 ' billscott@redrivernet.com ' http://lettermanstationery.tripod.com ' Updated 03/03/01 for scrolling text. ' Updated 08/06/00 for IE 5.5 problem. Dim ypos Sub Window_OnLoad() CardText.style.backgroundColor="transparent" CardFront.style.pixelLeft=30 cardImage.style.pixelLeft=0 cardImage.style.pixelTop=0 cardImage.style.posWidth=545 largeur de l'image cardImage.style.posHeight=346 hauteur de l'image note.style.pixelLeft=30 CardFront.style.visibility="visible" note.style.visibility="visible" End Sub Sub openCard() ypos = CardFront.style.pixelTop ypos = ypos+3 CardFront.style.pixelTop = ypos if ypos < 160 then SetTimeOut "openCard",35 else hideFront end if End Sub Sub hideFront() CardFront.filters.item(0).Apply() CardFront.style.visibility = "hidden" CardFront.filters.item(0).Transition=12 numero de la transition utilisee (on peut en changer) CardFront.filters.item(0).play(5.000) CardInside.filters.item(0).Apply() CardInside.style.visibility = "visible" CardInside.filters.item(0).Transition=4 CardInside.filters.item(0).play(5.000) End Sub Sub closeCard() CardInside.filters.item(0).Apply() CardInside.style.visibility = "hidden" CardInside.filters.item(0).Transition=5 CardInside.filters.item(0).play(5.000) CardFront.filters.item(0).Apply() CardFront.style.visibility = "visible" CardFront.filters.item(0).Transition=12 CardFront.filters.item(0).play(5.000) SetTimeOut "moveCardUp",5000 End Sub Sub moveCardUp() ypos = CardFront.style.pixelTop ypos = ypos-3 CardFront.style.pixelTop = ypos if ypos >40 then SetTimeOut "moveCardUp",35 else end if End Sub Sub Window_OnResize() window.location.reload() End Sub </SCRIPT> <META content="MSHTML 5.50.4522.1800" name=GENERATOR></HEAD> j'ai ajoute un motif de fond mais on peut laisser en bgcolor <BODY bgColor=black background="D:\!!!!sauv-dec-01\ccg-noel-fd.jpg"> la c'est la musik <BGSOUND balance=0 src="D:\!!!!sauv-dec-01\Pe_lutin.mid" volume=0 loop=infinite> <DIV id=note style="LEFT: -1800px; ca c'est le lien pour ouvrir la carte je l'ai mis en rouge (red) COLOR: red; POSITION: absolute; TOP: 10px"><B><I>Clicker sur la carte pour ouvrir.</I></B> </DIV><!--The opened card image is here--> <DIV id=CardInside style="Z-INDEX: 1; FILTER: revealTrans; LEFT: 30px; VISIBILITY: hidden; WIDTH: 685px; hauteur du gif de la carte POSITION: absolute; TOP: 40px; HEIGHT: 486px"> largeur du gif de la carte <SPAN language=VBScript style="LEFT: 550px; CURSOR: hand; la c'est le lien pour fermer la carte COLOR: red; je l'ai mis en rouge (red) POSITION: absolute; TOP: 15px" onclick=closeCard><U>Fermer la carte</U></SPAN> la c'est l'image du gif de la carte, attention si vous le changez n'oubliez pas de mettre les dimensions <IMG style="WIDTH: 685px; HEIGHT: 486px" src="D:\!!!!sauv-dec-01\ccg-noel-gif1.gif"> <!--Text background color is removed and made transparent by the script. It exists only to enable setting the cursor in Outlook Express--> <DIV id=CardText tout ca c'est le texte et son positionnement sur la carte style="Z-INDEX: 2; LEFT: 0px; WIDTH: 565px; POSITION: absolute; TOP: 120px; HEIGHT: 366px; BACKGROUND-COLOR: #ffffff"> <DIV id=text style="LEFT: 15%; OVERFLOW: auto; WIDTH: 90%; POSITION: absolute; TOP: 5%; HEIGHT: 90%"><B><I>Hello à tous ceux qui ne sont pas partis pour les fetes...<BR><BR>Je vous souhaite de passer<BR>Un joyeux Noel et de Bonnes Fetes ;-)<BR>Que votre commande au Père Noel<BR>Arrive en totalité héhé<BR>Amusez vous bien..... <BR><BR>A + Martine<BR><BR>PS : ce script est un script tout pret de Bill Scott ;-))</B> </I></DIV></DIV></DIV><!--Add your card image here. Image will be expanded automatically to fill card front--><!--You can adjust the border around the card in the next line. For no border, use border-style:none--> ca c'est le cadre (doré) de la carte <DIV language=VBScript id=CardFront style="BORDER-RIGHT: #c4b566 10px solid; BORDER-TOP: #c4b566 10px solid; Z-INDEX: 3; FILTER: revealTrans; LEFT: -1800px; VISIBILITY: visible; BORDER-LEFT: #c4b566 10px solid; WIDTH: 565px; BORDER-BOTTOM: #c4b566 10px solid; POSITION: absolute; TOP: 40px; HEIGHT: 366px" onclick=openCard> la c'est l'image de la carte <IMG id=cardImage style="LEFT: -1800px; POSITION: absolute" src="D:\!!!!sauv-dec-01\ccg-noel-img.jpg"> </div>
|
|
