VBscript超强幻灯片效果代码

《VBscript超强幻灯片效果代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、　　　　　　　　　　　　　　DimFileList,FileListArr　　FileList="001.jpg,002.jpg,003.jpg,004.jpg,005.jpg,006.jpg,007.jpg,008.jpg"　　FileLis

2、tArr=Split（FileList,","）　　DimCanPlay　　CanPlay=CInt（Split（Split（navigator.appVersion,";"）（1），""）（2））>5　　DimFilterStr　　FilterStr="RevealTrans（duration=2,transition=23）"　　FilterStr=FilterStr+";BlendTrans（duration=2）"　　IfCanPlayThen　　FilterStr=FilterStr+";progid:DXImageTransform.Microsoft.Pixelate（，en

3、abled=false,duration=2,maxSquare=25）"　　FilterStr=FilterStr+";progid:DXImageTransform.Microsoft.Fade（duration=2,overlap=0）"　　FilterStr=FilterStr+";progid:DXImageTransform.Microsoft.GradientWipe（duration=2,gradientSize=0.25,motion=forward）"　　FilterStr=FilterStr+";progid:DXImageTransform.Microsoft.St

4、retch（duration=2,stretchStyle=PUSH）"　　FilterStr=FilterStr+";progid:DXImageTransform.Microsoft.Wheel（duration=2,spokes=16）"　　FilterStr=FilterStr+";progid:DXImageTransform.Microsoft.RandomDissolve（duration=2）"　　FilterStr=FilterStr+";progid:DXImageTransform.Microsoft.Spiral（duration=2,gridSizeX=50,gr

5、idSizeY=50）"　　FilterStr=FilterStr+";progid:DXImageTransform.Microsoft.Slide（duration=2,bands=1,slideStyle=SWAP）"　　FilterStr=FilterStr+";progid:DXImageTransform.Microsoft.RadialWipe（duration=2,wipeStyle=CLOCK）"　　Else　　Msgbox"幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.5或以上版本，否则您将只能看到部分的切换效果。",64　　EndIf　　DimF

6、ilterArr　　FilterArr=Split（FilterStr,";"）　　DimPlayImg_M　　PlayImg_M=5*1000’切换时间（毫秒）　　DimI　　I=1　　SubChangeImg　　DoWhileFileListArr（I）=""　　I=I+1　　IfI>UBound（FileListArr）ThenI=0　　Loop　　DimJ　　IfI>UBound（FileListArr）ThenI=0　　Randomize　　J=Int（Rnd*（UBound（FilterArr）+1））　　Img.style.filter=FilterArr（J）　　Img.f

7、ilters（0）。Apply　　Img.Src=FileListArr（I）　　Img.filters（0）。play　　I=I+1　　IfI>UBound（FileListArr）ThenI=0　　TempImg.Src=FileListArr（I）　　SetTimeout"ChangeImg",PlayImg_M　　EndSub