动态改变文字颜色.htm
来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 35 行
HTM
35 行
<html>
<BODY bgcolor="black">
<DIV ID=myLightObject STYLE="position:relative; height:400; width:400; top:10; left:0; filter:light; color:white">
<CENTER>
今天你是否会想起<br>
昨天你写的日记<br>
明天你是否还想起,<br>
曾经最爱哭的你<p>
谁娶了多愁善感的你<br>
谁安慰爱哭的你<br>
谁把你的长发盘起<br>
谁给你做的嫁衣
<p>
</CENTER>
</DIV>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim CurrentZPos
Sub window_OnLoad
Call myLightObject.Filters.light(0).addAmbient(255,204,255,70)
Call myLightObject.Filters.light(0).addPoint(400,400,200,200,204,0,80)
CurrentZPos = 0
doMoveLight
End Sub
Sub doMoveLight()
If CurrentZPos < 500 Then
CurrentZPos = CurrentZPos + 8
call myLightObject.Filters.light(0).MoveLight(1,20,20,CurrentZPos,-1)
call setTimeout("doMoveLight", 200)
End If
End Sub
-->
</SCRIPT>
</BODY>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?