动态改变文字颜色.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 + -
显示快捷键?