动态的3D文字展示的动画效果

有什么问题请到<a href='/bbs/forums.php?fid=21'>论坛</a>中发表<br>

<!--要完成此效果需要两个步骤

第一步：把如下代码加入到<head>区域中-->

Sub Window_OnLoad()

call SG1.Scale(0.50, 0.50, 0.50)

call SG2.Scale(0.50, 0.50, 0.50)

call SG3.Scale(0.50, 0.50, 0.50)

call SG4.Scale(0.50, 0.50, 0.50)

call SG1.Rotate(0, 0, 0)

call SG2.Rotate(90, 0, 0)

call SG3.Rotate(0, 90, 0)

RotateAll

end sub

Sub RotateAll

Call SG1.Rotate(4,6,2)

Call SG2.Rotate(4,6,2)

Call SG3.Rotate(4,6,2)

Call SG4.Rotate(4,6,2)

FILK = Window.SetTimeOut("Call RotateAll", 10, "VBSCript")

End Sub

</SCRIPT>

<OBJECT classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6 id=SG4

style="HEIGHT: 400px; LEFT: 25%; POSITION: absolute; TOP: 25%; WIDTH: 400px; ZINDEX: 0"><PARAM

NAME="Line0001" VALUE="SetLineStyle(0)"><PARAM NAME="Line0002" VALUE="SetFillColor(164, 164, 255)"><PARAM

NAME="Line0003" VALUE="SetFillStyle(1)"><PARAM NAME="Line0004" VALUE="SetFont('Arial', 180, 700, 0, 0,

0)"><PARAM NAME="Line0005" VALUE="Text('webjx.com', -95, 87)"></OBJECT>

<OBJECT classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6 id=SG1

style="HEIGHT: 400px; LEFT: 25%; POSITION: absolute; TOP: 25%; WIDTH: 400px; ZINDEX: 0"><PARAM

NAME="Line0001" VALUE="SetLineStyle(1)"><PARAM NAME="Line0002" VALUE="SetLineColor(0, 0, 0)"><PARAM

NAME="Line0003" VALUE="SetFillStyle(0)"><PARAM NAME="Line0004" VALUE="SetFont('Arial', 180, 700, 0, 0,

0)"><PARAM NAME="Line0005" VALUE="Text('www.webjx.com', -95, 87)"></OBJECT>

<OBJECT classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6 id=SG3

style="HEIGHT: 300px; LEFT: 25%; POSITION: absolute; TOP: 25%; WIDTH: 400px; ZINDEX: 1"><PARAM

NAME="Line0001" VALUE="SetLineStyle(1)"><PARAM NAME="Line0002" VALUE="SetLineColor(66,158, 144)"><PARAM

NAME="Line0003" VALUE="SetFillStyle(0)"><PARAM NAME="Line0004" VALUE="SetFont('Arial', 280, 700, 0, 0,

0)"><PARAM NAME="Line0005" VALUE="Text('http://', -95, 87)"></OBJECT>

<OBJECT classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6 id=SG2

style="HEIGHT: 400px; LEFT: 25%; POSITION: absolute; TOP: 25%; WIDTH: 400px; ZINDEX: 2"><PARAM

NAME="Line0001" VALUE="SetLineStyle(1)"><PARAM NAME="Line0002" VALUE="SetLineColor(255, 111,210)"><PARAM

NAME="Line0003" VALUE="SetFillStyle(0)"><PARAM NAME="Line0004" VALUE="SetFont('Arial', 180, 700, 0, 0,

0)"><PARAM NAME="Line0005" VALUE="Text('webjx.com', -95, 0)"></OBJECT>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]