📄 鼠标改变颜色.htm
字号:
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<title>鼠标改变颜色</title>
<script LANGUAGE="VBScript">
i=0
A = Array("red","blue","green","purple","black","tan","yellow","lime","coral","palegreen","silver","gold","red")
flag=1
function flashfont()
if flag=0 then
if i=12 then
i=0
end if
document.all("flhfnt1").style.color=a(i)
document.all("flhfnt2").style.color=a(i+1)
nknow=window.settimeout("flashfont()",1000)
i=i+1
flashfont=i
end if
end function
</script>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub flhfnt1_onmouseout
flag=1
End Sub
Sub flhfnt1_onmouseover
flag=0
call flashfont()
End Sub
Sub flhfnt2_onmouseout
flag=1
End Sub
Sub flhfnt2_onmouseover
flag=0
call flashfont()
End Sub
-->
</SCRIPT>
</head>
<body onload="flashfont()" bgcolor="#C0C0C0">
<center>
<h3>鼠标放入文字边界内颜色动态变化</h3>
<h3>鼠标移开文字边界内颜色动态变化</h3><hr>
</center>
<center>
<p align=center>
<font id="flhfnt1" size =6>鼠标放入此处的效果</font>
<br><br>
<font id="flhfnt2" size =8>你好朋友！</font>
</p>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -