VBscript超强幻灯片效果代码

2016-01-29 19:47 32 1 收藏

VBscript超强幻灯片效果代码,VBscript超强幻灯片效果代码

【 tulaoshi.com - ASP 】

<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.jpg,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
    FilterStr = 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=forward )"
    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 + ";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 "幻灯片播放具有多种动态图片切换效果,但此功能需要您的浏览器为IE5.5或以上版本,否则您将只能看到部分的切换效果。",64
  End If

  Dim FilterArr
  FilterArr = Split(FilterStr,";")

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

  Dim PlayImg_M
  PlayImg_M = 5 * 1000  '切换时间(毫秒)

  Dim I
  I = 1

  Sub ChangeImg
    Do While FileListArr(I)=""
      I = I + 1
      If IUBound(FileListArr) Then I = 0
    Loop
    Dim J
    If IUBound(FileListArr) Then I = 0
    Randomize
    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 IUBound(FileListArr) Then I = 0
    TempImg.Src = FileListArr(I)
   
    SetTimeout "ChangeImg",PlayImg_M
  End Sub
</SCRIPT

<BODY BGCOLOR="#000000"
<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="Center"
      <Img ID="Img" Border="0"
    </TD
  </TR
  <TR Style="Display:none"
    <TD<Img ID="TempImg" Border="0"</TD
  </TR
 
</TABLE

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

<Script Language="VBScript"
  NoScript.Style.Display = "none"
  CanRunScript.Style.Display = ""
  Img.Src = FileListArr(0)

来源:http://www.tulaoshi.com/n/20160129/1510124.html

延伸阅读
标签: 电脑入门
①启动PowerPoint2010,单击文件--打开,弹出本地对话框,选取要进行打开的ppt文件。 ②文件打开之后,单击菜单栏--切换--切换方案。 ③然后在众多的切换方案里面选取一种,例如我选的就是时钟。 ④设置好了换片方式,我们可以从最左侧的视图中查看,幻灯片添加了五角星图标的显然就是有动画效果的幻灯片。
标签: 电脑入门
PowerPoint2007从幻灯片窗格中新建幻灯片 可以使用一种非常快捷的方法来新建幻灯片一-基于默认版式。这是最简单的方法了: 1.在"普通"视图下,在"幻灯片"窗格中单击新幻灯片应接于其后的幻灯片。 2. 按Enter 键,即出现使用"标题和内容"版式的新幻灯片。 这种方法的缺陆在于无法指定版式。要选择默认版式以外...
标签: 软件教程
有时为了方便工作在WPS中会经常隐藏和显示幻灯片以此来达到目的,隐藏的幻灯片和其他幻灯片一样都存在文件中,唯一不同的就是隐藏的幻灯片在幻灯放映时不显示;但在“普通视图”和“幻灯片浏览视图”中都可看到,而且在“普通视图”下依然可以对隐藏的幻灯片进行添加、编辑、删除等操作,且隐藏的幻灯片还可以被...
WPS怎么播放幻灯片   在播放演示文稿的时候,设置了幻灯片的放映方式,但是如果只是想要手动来放映幻灯片的话,图老师小编现在就为大家介绍下WPS演示播放演示文稿的三种方法,可以从当前页播放,也可以从头开始播放。 1、开始从当前幻灯片开始播放从当前幻灯片开始播放,也可以使用快捷键Shift+F5。 开始菜单 2、点...
快图浏览怎么设置幻灯片效果   快图浏览怎么设置幻灯片效果?对于浏览多照片来说,幻灯片是非常实用的功能,小伙伴可以自行设置幻灯片的过渡效果,播放间隔等。接下来小编就教大家快图浏览怎么设置幻灯片效果? 1)打开快图浏览进入应用后点击下方,接着点击。 2)接着点击,根据需要设置你要的幻灯片效果设置即可。...