2022年VBscript超强幻灯片效果代码CSSHTML教程.docx

上传人：l****

文档编号：81147147

上传时间：2023-03-24

格式：DOCX

页数：6

大小：12.10KB

( 4.5 )

《2022年VBscript超强幻灯片效果代码CSSHTML教程.docx》由会员分享，可在线阅读，更多相关《2022年VBscript超强幻灯片效果代码CSSHTML教程.docx（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2022年VBscript超强幻灯片效果代码CSSHTML教程<HTML> <HEAD> <TITLE>幻灯片播放</TITLE> <META HTTP-EQUIV=Content-Type CONTENT=text/html; charset=gb2312> <LINK HREF=Images/Style.css REL=stylesheet> </HEAD> <SCRIPT language=VBScript> Dim FileList,FileListArr FileList = 001.jp

2、g,002.jpg,003.jpg,004.jpg,005.jpg,006.jpg,007.jpg,008.jpg FileListArr = Split(FileList,) Dim CanPlay CanPlay = CInt(Split(Split(navigator.appVersion,;)(1), )(2)>5 Dim FilterStr FilterStr = RevealTrans(duration=2,transition=23) FilterStr = FilterStr + ;BlendTrans(duration=2) If CanPlay Then Filter

3、Str = FilterStr + ;progid:DXImageTransform.Microsoft.Pixelate(,enabled=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=forw

4、ard ) FilterStr = FilterStr + ;progid:DXImageTransform.Microsoft.Stretch(duration=2,stretchStyle=PUSH) FilterStr = FilterStr + ;progid:DXImageTransform.Microsoft.Wheel(duration=2,spokes=16) FilterStr = FilterStr + ;progid:DXImageTransform.Microsoft.RandomDissolve(duration=2) FilterStr = FilterStr +

5、;progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=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 幻灯片播放具有多种

6、动态图片切换效果，但此功能须要您的阅读器为IE5.5或以上版本，否则您将只能看到部分的切换效果。,64 End If Dim FilterArr FilterArr = Split(FilterStr,;) Dim PlayImg_M PlayImg_M = 5 * 1000 切换时间（毫秒） Dim I I = 1 Sub ChangeImg Do While FileListArr(I)= I = I + 1 If I>UBound(FileListArr) Then I = 0 Loop Dim J If I>UBound(FileListArr) Then I = 0 Ra

7、ndomize J = Int(Rnd * (UBound(FilterArr)+1) Img.style.filter = FilterArr(J) Img.filters(0).Apply Img.Src = FileListArr(I) Img.filters(0).play I = I + 1 If I>UBound(FileListArr) Then I = 0 TempImg.Src = FileListArr(I) SetTimeout ChangeImg,PlayImg_M End Sub </SCRIPT><BODY BGCOLOR=#000000&g

8、t;<TABLE WIDTH=100% height=100% BORDER=0 CELLSPACING=0 CELLPADDING=0> <TR ID=NoScript> <TD Align=Center Style=Color:White>对不起，图片阅读功能需脚本支持，但您的阅读器已经设置了禁止脚本运行。请您在阅读器设置中调整有关平安选项。</TD> </TR> <TR Style=Display:none ID=CanRunScript> <TD HEIGHT=100% Align=Center vAlign

9、=Center> <Img ID=Img Border=0 > </TD> </TR> <TR Style=Display:none> <TD><Img ID=TempImg Border=0></TD> </TR> </TABLE><Script Language=VBScript> NoScript.Style.Display = none CanRunScript.Style.Display = Img.Src = FileListArr(0) SetTimeout ChangeImg, PlayImg_M </Script>

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

9.9 金币

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: 2022 VBscript 超强幻灯片效果代码 CSSHTML 教程

淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

限制150内

关于本文

本文标题：2022年VBscript超强幻灯片效果代码CSSHTML教程.docx
链接地址：https://www.taowenge.com/p-81147147.html