📄 color_word.htm

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

💻 HTM

字号:


<HTML>
<HEAD>
<TITLE>字体颜色渐层变化</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<SCRIPT LANGUAGE=VBScript>
    Function Fade(ByVal rRed,ByVal rGreen,ByVal rBlue)
  	Red=Not rRed
  	Green=Not rGreen
  	Blue=Not rBlue
  	text="字体颜色渐层变化"
	Nchars=Len(Text)
	PrinOut=""
	For j=1 To NChars
	   x=255-((255*(j-1))\(NChars))
           R=Hex(255-(-Red*x))
           G=Hex(255-(-green*x))
           B=Hex(255-(-Blue*x))
           If Len(R)=1 Then 
              R="0" & R
           end if
           If Len(G)=1 Then 
              G="0" & G
           end if
           If Len(B)=1 Then 
              B="0" & B
           end if
           PrintOut=PrintOut & "<FONT COLOR=" & R & G & B   & ">" 
           PrintOut=PrintOut & Mid(Text,j,1)& "</FONT>"
        Next
        Fadetext.innerHTML=PrintOut
        End Function

SUB redfade_OnClick()
       call Fade(True,False,False)
END SUB

SUB greenfade_OnClick()
       call Fade(False,True,False)
END SUB

SUB bluefade_OnClick()
       call Fade(False,False,True)
END SUB

SUB ShowForm
formstrg= "<BR><BR><BR><DIV>" _
	& "<input type=button value=红色系字体渐层颜色 id=redfade><BR><BR>" _
	& "<input type=button value=绿色系字体渐层颜色 id=greenfade><BR><BR>" _
	& "<input type=button value=蓝色系字体渐层颜色 id=bluefade><BR><BR>" _
	& "</DIV>"
document.write formstrg
END SUB
</SCRIPT>

</HEAD>
<BODY>
<CENTER>
<DIV id=Fadetext 
style="COLOR: red; FONT: 20pt 楷体_GB2312; LEFT: 40; POSITION: absolute; TEXT-ALIGN: center; TOP: 10px">字体颜色渐层变化</DIV>
<SCRIPT LANGUAGE=VBScript>
   Call ShowForm 
</SCRIPT>
</CENTER>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -