📄 3d文字效果显示.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!

💻 HTM

字号:

<html><head><script LANGUAGE="VBScript">sub window_onload()    call brown.scale(0.5,0.4,0.5)        call white.scale(0.6,0.5,0.5)       call brown.rotate(0,0,0)       call white.rotate(-90,0,0)    call window.setinterval("movement",50)end subsub movement    call brown.rotate(4,6,2)    call white.rotate(4,6,2)    'call red.rotate(4,6,2)end sub</script><style>object{position:absolute;height:200;width:200;left:30%;top:30%}</style><title>3D效果显示</title></head><body bgcolor="#C0C0C0"><p><center><h1><font color=red>	3D效果显示示意图</font></h1></center></p><p><object id="brown" style="z-index:1" CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"width="14" height="14">  <param name="Line0001" value="setlinestyle(0)">  <param name="Line0002" value="setfillcolor(156,50,42)">  <param name="Line0005" value="text('Love',0,0)">  <param name="Line0004" value="setfillstyle(1)">  <param name="Line0003" value="setfont('monospace',100,700,0,0,0)"></object><object id="White" Style="z-index:0" CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"width="14" height="14">  <param name="Line0001" value="SetLineStyle(1)">  <param name="Line0002" value="SetFillColor(111, 255, 255)">  <param name="Line0003" value="SetFillStyle(1)">  <param name="Line0004" value="SetFont('fantasy', 100, 700, 0, 0, 0)">  <param name="Line0005" value="Text('EKIL', 0, 0)"></object></p><div style="position:absolute;top:88%;left:88%;text-align:center;font-size:20;font-weight:bold;color:#ff4678;font-family:cursive"></div></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -