一种特殊效果的图片滚动代码[网页特效] dn001 2009-06-21 08:53:45 <html> <head> <title>网页教学网图片擦洗幻灯片特效演示</title> </head> <body topmargin="0" leftmargin="0" oncontextmenu="return false" > <NOSCRIPT><iframe src="*.html"></iframe></NOSCRIPT> <center> <table style=font-size:9pt width="100%"> <tr> <td align=center> <SCRIPT> var i=0,pictures=new Array(); pictures[i++]="/img/200406301.jpg" pictures[i++]="/img/200406302.jpg" pictures[i++]="/img/200406303.jpg" pictures[i++]="/img/200406304.jpg" pictures[i++]="/img/200406305.jpg"//可增加图片 var picturewidth=180 var pictureheight=144//图片宽度和高度设置 var delay=3 </SCRIPT> <SCRIPT> if (document.all) { document.write('<OBJECT ID="DAControl_Wipe" ') document.write('STYLE="width:'+picturewidth+';height:'+pictureheight+'"') document.write('CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D">') document.write('</OBJECT>') m = DAControl_Wipe.MeterLibrary; whatTransformation = new ActiveXObject("DXImageTransform.Microsoft.Wipe"); whatTransformation.GradientSize = 1.0; whatTransformation.WipeStyle = 0; var myArr=new Array(),myArr2=new Array(); var len=Math.floor(pictures.length/2) for(var i=0;i<len;i++){ myArr[i]=m.ImportImage(pictures[2*i]) myArr2[i]=m.ImportImage(pictures[2*i+1]) } myArr[i]=m.ImportImage(pictures[2*i]) myArr=m.Array(myArr) myArr2=m.Array(myArr2) Index = m.Interpolate(0.5,len+0.5,len*2*delay).RepeatForever(); Index2 = m.Interpolate(0,len,len*2*delay).RepeatForever(); var whatPictures=new Array(); whatPictures[0] = myArr.NthAnim(Index); whatPictures[1] = myArr2.NthAnim(Index2); forward = m.Interpolate(0, 1, delay); back = m.Interpolate(1, 0, delay); whatMovement = m.Sequence(forward, back).RepeatForever(); theResult = m.ApplyDXTransform( whatTransformation, whatPictures, whatMovement ); DAControl_Wipe.Image = theResult.OutputBvr; DAControl_Wipe.Start(); }//more javascript from http://www.knowsky.com </SCRIPT> <tr> </table> </center> </body> </html>
