📄 move_pictrue.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!

💻 HTM

字号:

<html>
<html>
<SCRIPT LANGUAGE=VBScript>
j = 0
sub Reveal( )
call Image2.filters.item(j).Apply( )
if j = 0 then Image2.src = "j-1.jpg"
if j = 1 then Image2.src = "j-2.jpg"
if j = 2 then Image2.src = "j-3.jpg"
if j = 3 then Image2.src = "j-1.jpg"
if j = 4 then Image2.src = "j-2.jpg"
if j = 5 then Image2.src = "j-3.jpg"
if j = 6 then Image2.src = "j-1.jpg"
if j = 7 then Image2.src = "j-2.jpg"
if j = 8 then Image2.src = "j-3.jpg"
if j = 9 then Image2.src = "j-1.jpg"
if j = 10 then Image2.src = "j-2.jpg"
if j = 11 then Image2.src = "j-3.jpg"
if j = 12 then Image2.src = "j-1.jpg"
if j = 13 then Image2.src = "j-2.jpg"
if j = 14 then Image2.src = "j-3.jpg"
if j = 15 then Image2.src = "j-1.jpg"
if j = 16 then Image2.src = "j-2.jpg"
if j = 17 then Image2.src = "j-3.jpg"
if j = 18 then Image2.src = "j-1.jpg"
if j = 19 then Image2.src = "j-2.jpg"
if j = 20 then Image2.src = "j-3.jpg"
if j = 21 then Image2.src = "j-1.jpg"
if j = 22 then Image2.src = "j-2.jpg"
if j = 23 then Image2.src = "j-3.jpg"
call Image2.filters.item(j).Play( )
id2 = setTimeout("Reveal( )",5000)
bu.value=time()
if j = 23 then
j = 0
else
j = j + 1
end If
end sub
</SCRIPT> 

<CENTER>
<IMG ID=Image2 WIDTH=170 HEIGHT=250 SRC=j-1.jpg STYLE="filter:
revealTrans(Duration=5,Transition=0)
revealTrans(Duration=5,Transition=1)
revealTrans(Duration=5,Transition=2)
revealTrans(Duration=5,Transition=3)
revealTrans(Duration=5,Transition=4)
revealTrans(Duration=5,Transition=5)
revealTrans(Duration=5,Transition=6)
revealTrans(Duration=5,Transition=7)
revealTrans(Duration=5,Transition=8)
revealTrans(Duration=5,Transition=9)
revealTrans(Duration=5,Transition=10)
revealTrans(Duration=5,Transition=11)
revealTrans(Duration=5,Transition=12)
revealTrans(Duration=5,Transition=13)
revealTrans(Duration=5,Transition=14)
revealTrans(Duration=5,Transition=15)
revealTrans(Duration=5,Transition=16)
revealTrans(Duration=5,Transition=17)
revealTrans(Duration=5,Transition=18)
revealTrans(Duration=5,Transition=19)
revealTrans(Duration=5,Transition=20)
revealTrans(Duration=5,Transition=21)
revealTrans(Duration=5,Transition=22)
revealTrans(Duration=5,Transition=23)"><P>
<INPUT id=bu name=bu type=button value=执行 onClick="Reveal( )">
</CENTER><P>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -