首页
微信
安卓
接口
移动
前端
专题
文档库
工具
网址
§
ITPOW
>>
文档
>>
JavaScript
>>
窗口页面
页面酷特效
作者: 来源: 日期:2004-9-30
<SCRIPT language=VBScript> <!-- Dim i Dim Rotation Dim Lib Dim DRS Dim winsizew Dim winsizeh Sub Window_OnLoad i=0 Rotation=0 Call Seq("1").Play End Sub Sub Seq_OnInit Call seq("1").at(0.000, "Gen", 20, 0.150, 1) Call seq("1").at(0.000, "Rot", -1, 0.030, 1) Call seq("1").at(3.500, "ShowMegaRecords") Call seq("1").at(5.000, "MoveMegaRecords", 15, 0.020) End Sub Sub ShowMegaRecords Mega.style.visibility="visible" Records.style.visibility="visible" End Sub Sub MoveMegaRecords Star.style.left=Star.style.posleft -25 Star.style.top=Star.style.postop - 9 Call Star.scale(.90,.9,.9) Mega.style.left=mega.style.posleft - 19 Mega.style.top=mega.style.postop - 11 Call Mega.Scale(.95,.95,.95) Records.style.left=Records.style.posLeft - 19 Records.style.top=Records.style.posTop - 14 Call Records.Scale(.95,.95,.95) End Sub Sub Gen Set Lib=Star.Library Set DRS=Star.DrawSurface Call DRS.FillStyle(0) Call DRS.LineDashStyle(1) if i mod 2=1 then Call DRS.BorderColor(lib.ColorRgb255(200,200,255)) Else Call DRS.BorderColor(lib.ColorRgb255(100,100,255)) End If Rotation=i * 18 Call DRS.PieDegrees(-120, -120, Rotation, Rotation+10 , 240, 240) Star.DrawSurface=DRS i=i+1 End Sub Sub Rot Call Star.Rotate(-4,2,-2) End Sub Sub Window_OnUnLoad Call Seq("1").Stop End Sub --> </SCRIPT> <OBJECT id=Star style="Z-INDEX: 1; LEFT: 421px; WIDTH: 303px; POSITION: absolute; TOP: 11px; HEIGHT: 282px" height=171 width=207 classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6></OBJECT> <OBJECT id=mega style="LEFT: 5%; VISIBILITY: hidden; WIDTH: 90%; POSITION: absolute; TOP: 75px; HEIGHT: 200px" height=14 width=14 classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6><PARAM NAME="Line0001" VALUE="SetFont('Impact',100, 650, 1, 0, 0)"><PARAM NAME="Line0002" VALUE="SetLineColor(110, 255, 0)"><PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)"><PARAM NAME="Line0004" VALUE="SetFillStyle(1)"><PARAM NAME="Line0005" VALUE="Text('COOL!', -115, 75, 0)"></OBJECT> <OBJECT id=Records style="LEFT: 5%; VISIBILITY: hidden; WIDTH: 90%; POSITION: absolute; TOP: 210px; HEIGHT: 100px" height=14 width=14 classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6><PARAM NAME="Line0001" VALUE="SetFont('Impact', 50, 700, 1, 0, 0)"><PARAM NAME="Line0002" VALUE="SetLineColor(110, 255, 0)"><PARAM NAME="Line0003" VALUE="SetFillColor(200, 200, 200)"><PARAM NAME="Line0004" VALUE="SetFillStyle(0)"><PARAM NAME="Line0005" VALUE="Text('1 s t s c r i p t . c o m', -125, 40, 0)"></OBJECT> <OBJECT id=Seq height=50 width=50 align=top classid=CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96></OBJECT>
[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]
相关文章
创建于2005年
渝ICP备05010272号-1
电邮:
cftea@126.com
即将跳转...