?? 字體顏色漸層變化.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 + -