color_word.htm

来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 66 行

HTM
66 行
字号 

<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>

color_word.htm - 源码说明

本页面展示了「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!」中的 color_word.htm 源码文件，采用 HTM 编程语言编写，共 66 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VBScript相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?