html雪花飘落代码(html中怎么做到蒲公英漂浮的效果)
本文目录
html中怎么做到蒲公英漂浮的效果
***隐藏网址***这个是雪花飘落的。从上往下票,蒲公英是左右飘,你稍微变通一下即可。
求百度空间 飘雪花代码
把如下代码加入《body》...《/body》区域中:《script language="JavaScript"》《!-- var no = 15; var speed =40; var ns4up = (document.layers) ? 1 : 0; var ie4up = (document.all) ? 1 : 0; var s, x, y, sn, cs; var a, r, cx, cy; var i, doc_width = 750, doc_height = 600; if (ns4up) { doc_width = self.innerWidth; doc_height = self.innerHeight; } else if (ie4up) { doc_width = document.body.clientWidth; doc_height = document.body.clientHeight; } x = new Array(); y = new Array(); r = new Array(); cx = new Array(); cy = new Array(); s = 4; for (i = 0; i 《 no; ++ i) { initRain(); if (ns4up) { if (i == 0) { document.write("《layer name=’dot"+ i +"’ left=’1’ "); document.write("top=’1’ visibility=’show’》《img src=\"snow.gif\" width=30 height=30》"); document.write("《/layer》"); } else { document.write("《layer name=’dot"+ i +"’ left=’1’ "); document.write("top=’1’ visibility=’show’》《img src=\"snow.gif\" width30 height=30》"); document.write("《/layer》"); } } else if (ie4up) { if (i == 0) { document.write("《div id=’dot"+ i +"’ style=’POSITION: "); document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: "); document.write("visible; TOP: 15px; LEFT: 15px;’》《img src=\"snow.gif\" width=30 height=30》"); document.write("《/div》"); } else { document.write("《div id=’dot"+ i +"’ style=’POSITION: "); document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: "); document.write("visible; TOP: 15px; LEFT: 15px;’》《img src=\"snow.gif\" width=30 height=30》"); document.write("《/div》"); } } } function initRain() { a = 6; r = Math.random() * doc_width + 1; cy; } function makeRain() { r; } function updateRain() { r; } function raindropNS() { for (i = 0; i 《 no; ++ i) { updateRain(); if ((x 》= (doc_height - 20))) { makeRain(); doc_width = self.innerWidth; doc_height = self.innerHeight; } document.layers; document.layers; } setTimeout(’raindropNS()’, speed); } function raindropIE() { for (i = 0; i 《 no; ++ i) { updateRain(); if ((x 》= (doc_height - 20))) { makeRain(); doc_width = document.body.clientWidth; doc_height = document.body.clientHeight; } document.all; document.all; } setTimeout(’raindropIE()’, speed); } if (ns4up) { raindropNS(); } else; if (ie4up) { raindropIE(); } //--》《/script》
谁有Dreamweaver雪花飘特效的代码呀
你参考一下:《script language="JavaScript"》《!-- N =20; //N是雪花的数量Y = new Array();//Y是雪花下落的速度X = new Array();S = new Array();A = new Array();B = new Array();M = new Array();V = (document.layers)?1:0;iH=(document.layers)?window.innerHeight:window.document.body.clientHeight;iW=(document.layers)?window.innerWidth:window.document.body.clientWidth;for (i=0; i 《 N; i++){ Y=Math.round(Math.random()*iH);X=Math.round(Math.random()*iW);S=Math.round(Math.random()*5+2);A=0;B=Math.random()*0.1+0.1;M=Math.round(Math.random()*1+7);}if (V){for (i = 0; i 《 N; i++){document.write("《LAYER NAME=’sn"+i+"’ LEFT=0 TOP=0 BGCOLOR=’#FFFFF0’ CLIP=’0,0,"+M+"’;z-index: 1》《font color=white size=3 face=’Wingdings’》T《/font》《/LAYER》")}}else{document.write(’《div style="position:absolute;top:0px;left:0px;z-index: 1"》’);document.write(’《div style="position:relative;z-index: 1"》’);for (i = 0; i 《 N; i++){document.write(’《div id="si" style="position:absolute;z-index: 1;top:0;left:0;width:’+M+’"》《font color=white size=3 face="Wingdings"》T《/font》《/div》’)}document.write(’《/div》《/div》’);}function snow(){var H=(document.layers)?window.innerHeight:window.document.body.clientHeight;var W=(document.layers)?window.innerWidth:window.document.body.clientWidth;var T=(document.layers)?window.pageYOffset:document.body.scrollTop;var L=(document.layers)?window.pageXOffset:document.body.scrollLeft;for (i=0; i 《 N; i++){sy=S;sx=S);Y+=sy;X+=sx; if (Y 》 H){Y=-10;X=Math.round(Math.random()*W);M=Math.round(Math.random()*1+7);S=Math.round(Math.random()*5+2);}if (V){document.layers+T}else{si+T} A;}setTimeout(’snow()’,40);}snow()//--》《/script》
求VB程序设计,有一段雪花飘扬的代码,求添加代码让用户选择往左飘或者往右飘,还有飘雪速度代码
Private sub form1_load(省略) Dim i As Integer For i=0 To 99 Randomize() s(i)=New snowflakes(Rnd()*Me.width,Rnd()*Me.Height) Next End Sub Private sub timer1_tick(省略) Me.Refresh() pen1=New pen(color.white,5) g=Me.CreateGraphics For i=0 to 99 g.DrawEllipse(pen1,s(i).x,s(i).y,1,1) s(i).down(10) If s(i).x》=Me.width Then s(i).x=Rnd()*20 End If If s(i).y》=Me.Height Then s(i).y=Rnd()*10 End If
更多文章:
联想移动硬盘f310(联想移动硬盘F310怎么插到电脑上找不到)
2024年7月20日 07:36
thinkpad x1 carbon 2019 lte(ThinkPad X1 Carbon 2019 LTE版)
2024年7月9日 04:20