字体颜色渐层变化.htm

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

HTM
81 行
字号 
<HTML>
<HEAD>
<TITLE>
	背景颜色动态转变
</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<SCRIPT language=VBScript>
Function Fade(Text,ByVal r_Red,ByVal r_Green,ByVal r_Blue)
  Red=Not r_Red
  Green=Not r_Green
  Blue=Not r_Blue
  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))
      '  Msgbox "x=" & x &",R=" & R & ",G=" & G & ", B=" & B & hex(31)
       If Len(R)=1 Then R="0" & R
       If Len(G)=1 Then G="0" & G
       If Len(B)=1 Then B="0" & B
       PrintOut=PrintOut & "<FONT COLOR=" & R & G & B   & ">" & 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 redbgcolor_OnClick()
FOR R=100 to 255 step 5
       RR=Hex(R):Document.Bgcolor = RR & "0000"
NEXT
Msgbox "背景颜色变成红色系"
END SUB

SUB greenbgcolor_OnClick()
FOR G=100 to 255 step 5
        GG=Hex(G):Document.Bgcolor = "00" & GG & "00"
NEXT
Msgbox "背景颜色变成绿色系"
END SUB

SUB bluebgcolor_OnClick()
FOR B=10 to 255 step 5
        BB=Hex(B):Document.Bgcolor = "0000" & BB
NEXT
Msgbox "背景颜色变成蓝色系"
END SUB

SUB ShowForm
formstrg= "<BR><BR><BR><DIV>" _
	& "<input type=button value=红色系改变背景颜色 id=redbgcolor><BR><BR>" _
	& "<input type=button value=绿色系改变背景颜色 id=greenbgcolor><BR><BR>" _
	& "<input type=button value=蓝色系改变背景颜色 id=bluebgcolor></DIV>"
document.write formstrg
END SUB
</SCRIPT>

<META content="MSHTML 5.00.2920.0" name=GENERATOR></HEAD>
<BODY>
<CENTER>
<DIV id=Fadetext 
style="COLOR: red; FONT: 32pt 楷体_GB2312; LEFT: 150px; POSITION: absolute; TEXT-ALIGN: center; TOP: 10px">背景颜色动态转变</DIV>
<SCRIPT language=VBScript> 
    Call ShowForm  
</SCRIPT>
</BODY>
</HTML>

字体颜色渐层变化.htm - 源码说明

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

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

⌨️ 快捷键说明

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