📄 动态改变文字颜色.htm

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

💻 HTM

字号:

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -