📄 动态改变文字大小.htm
字号:
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -