📄 clouds.htm
字号:
<html>
<head>
<title>图片以不同方式显示</title>
<script LANGUAGE="VBScript">
dim curtrans
dim numtrans
dim speed
curtrans = 0
numtrans = 9 '显示的变换个数
Speed=2.0 '变换的速度
'Window_onLoad是在页面打开时的启动事件
Sub Window_onLoad()
mytext.style.visibility = "hidden"
call TImage1()
End Sub
'当一个变化完成时,启动下一个变化
Sub AB_OnFilterChange()
call TImage1()
End Sub
Sub TImage1()
' 修改文字颜色
if curtrans = 0 then
'设置样式的颜色
a0.style.color = "olive"
if document.anchors(numtrans).style.color = "olive" then
document.anchors(numtrans).style.color = "black"
end if
else
document.anchors(curtrans-1).style.color = "black"
document.anchors(curtrans).style.color = "olive"
end if
' 图片变化
call AB.filters.item(0).Apply()
'图片变化的位置curtrans
AB.filters.item(0).Transition = curtrans
If (curtrans mod 2) = 0 then
Image2.style.visibility = "hidden"
mytext.style.visibility = ""
else
Image2.style.visibility = ""
mytext.style.visibility = "hidden"
end if
'设置图片显示的速度
AB.filters(0).play(Speed)
curtrans = curtrans + 1
if curtrans > numtrans then
curtrans = 0
end if
End Sub
</script>
</head>
<BODY bgColor=#ffffff leftMargin=40 link=#500000 vLink=#505050>
<div ID="TransNames" STYLE="POSITION:ABSOLUTE; TOP:5%; LEFT:5%; WIDTH:200">
<font SIZE="3" FACE="Tahoma" COLOR="blue">
<a ID="A0">方格缩小</a><br>
<a ID="A1">方格放大</a><br>
<a ID="A2">圆图缩小</a><br>
<a ID="A3">圆图放大</a><br>
<a ID="A4">由下往上关闭图片</a><br>
<a ID="A5">由上往下打开图片</a><br>
<a ID="A6">由左往右关闭图片</a><br>
<a ID="A7">由右往左打开图片</a><br>
<a ID="A8">由左往右叶型关闭图片</a><br>
<a ID="A9">由上往下叶型打开图片</a><br>
</font>
</div>
<div ID="AB" STYLE="POSITION:ABSOLUTE; WIDTH:400; HEIGHT:290; Left:45%; Top:15%;background-color:black;
FILTER:revealTrans(Duration=3.0, Transition=1)">
<div ID="MYtext" STYLE="POSITION:ABSOLUTE;WIDTH:400;HEIGHT:290;TOP:0;LEFT:0;background-color:white;font-family:verdana;color:silver;font-size:20pt">
<br><br><font size=30>图片动态显示效果</size>
</div>
<img ID="Image2" STYLE="POSITION:ABSOLUTE;Width:400;height:290;TOP:0;LEFT:0" SRC="clouds.jpg" WIDTH="400" HEIGHT="290">
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -