⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 鼠标改变文字大小.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!
💻 HTM
字号:
🔍 
<html>
<Script LANGUAGE="VBScript">
dim k,j,p,fontsize11,number11,string11
k=4
j=0
p=0

sub window_onload()
   number11=1
   time1=settimeout("timer1()",1000)
end sub
function timer1()
if p=0 then
   word0.style.display=""
   word0.style.fontsize=fontsize11+k
   fontsize11=fontsize11+k
elseif p=1 then
   word1.style.display="" 
   word1.style.fontsize=fontsize11+k
   fontsize11=fontsize11+k
elseif p=2 then 
   word2.style.display="" 
   word2.style.fontsize=fontsize11+k
   fontsize11=fontsize11+k
elseif p=3 then
   word3.style.display="" 
   word3.style.fontsize=fontsize11+k
   fontsize11=fontsize11+k
end if
   j=j+1 
   if fontsize11=64 then k=-4
   if fontsize11=8 then k=4
   time2=settimeout("timer2()",10)
end function

function timer2()
if j=28 then
j=0
word0.style.fontsize=16
word1.style.fontsize=16
word2.style.fontsize=16
word3.style.fontsize=16
fontsize11=16
p=p+1
select case p
case 0
word0.style.display=""
word1.style.display="none"
word2.style.display="none"
word3.style.display="none"
case 1
word0.style.display="none"
word1.style.display=""
word2.style.display="none"
word3.style.display="none"
case 2
word0.style.display="none"
word1.style.display="none"
word2.style.display=""
word3.style.display="none"
case 3
word0.style.display="none"
word1.style.display="none"
word2.style.display="none"
word3.style.display=""
end select

if p=4 then 
p=0

word0.style.display=""
word1.style.display="none"
word2.style.display="none"
word3.style.display="none"
end if 
time3=settimeout("timer1()",7000)
exit function
end if
end function
</Script>
<body  bgcolor=LemonChiffon>
<center><br><br>
<font size=5 bgcolor=blue>
<P><LABEL id=word0 onmouseout='timer1() ' onmouseover='timer1() ' style="COLOR: coral">文字效果
</LABEL></P> 
<P><LABEL id=word1 onmouseout='timer1() ' onmouseover='timer1() ' style="COLOR: mediumslateblue">文字效果一
</LABEL></P> 
<P><LABEL id=word2 onmouseout='timer1() ' onmouseover='timer1() ' style="COLOR: burlywood">文字效果二
</LABEL></P> 
<P><LABEL id=word3 onmouseout='timer1() ' onmouseover='timer1() ' style="COLOR: darkviolet">文字效果三
</LABEL></P> 
</font>
</center>
</body>
</html> 　

⌨️ 快捷键说明

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