动态改变文字大小.htm
来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 37 行
HTM
37 行
<html><head><title>动态改变文字大小</title></head><body onload="SWFontSz()" bgcolor=LemonChiffon><center><p>动态改变文字大小</center><br><script LANGUAGE="VBScript">flag=21sub SWFontSz() flag=flag+1 select case flag case 16,17,18 document.all("SWFnt1").style.fontsize = flag-3 case 19,20,21 document.all("SWFnt1").style.fontsize = flag case 21,22,23 document.all("SWFnt1").style.fontsize = 47 - flag case 24,25,26 document.all("SWFnt1").style.fontsize = 50 - flag if flag = 26 then flag = 18 end if end select unknow=window.settimeout("SWFontSz()",100)end sub</script><center><font style="BACKGROUND-COLOR: royalblue;">欢迎你</font><font id="SWFnt1" bgcolor =blue style="BACKGROUND-COLOR: royalblue;">使用VBScript</font><font style="BACKGROUND-COLOR: royalblue;">编程百例</font> </center></p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?