📄 字体颜色渐层变化.htm
字号:
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -