📄 渐显文字播放.htm
字号:
<html>
<head>
<title>预览特效</title>
</head>
<body style="font-family:verdana,tahoma,arial,color:cococo">
<center>
渐显文字播放
<a href="渐显文字播放.htm">返回
</a><br>
</center>
<!--以下设置两行要替换的文本,并设置其ID才能在VBScript中引用-->
<div id=divtexta style="position:absolute;font-family:隶书;
font-weight:bold;font-size:75px;color:blue;top:50px;left:200px;height:100px;width:100%;filter:alpha(opacity=100)">
陈峰欢迎你! <!--此行可换为你喜欢的文本-->
</div>
<div id=divtextb style="position:absolute;font-family:楷体;
font-weight:bold;font-size:75px;color:red;top:75px;left:170px;height:100px;width:100%;filter:alpha(opacity=0)">
光临我的主页! <!--此行可换为你喜欢的文本-->
</div>
<!--以下是VBScript程序-->
<script LANGUAGE="VBScript">
<!--
sub window_onload ()
call dofade
end sub
sub dofade()
dim itimerid
divtexta.filters.alpha.opacity=divtexta.filters.alpha.opacity-4
divtextb.filters.alpha.opacity=divtextb.filters.alpha.opacity+4
if divtexta.filters.alpha.opacity>0 then
itimerid=settimeout("dofade",80)
end if
end sub
-->
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -