|
|||||||||
 |
|
||||||||
|
|
||||||||||||||
| | 网站首页 | 软件下载 | 技术文章 | 博瑞商城 | 贵客留言 | | ||
 |
||
|
||
|
|||||
| 一段不错的代码,动态效果 | |||||
作者：佚名 文章来源：网上收集 点击数： 更新时间：2008-6-23  |
|||||
|
<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: 356px; WIDTH: 303px; POSITION: absolute; TOP: 17px; HEIGHT: 282px" height=171 width=207 classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6> </OBJECT> <OBJECT id=mega style="LEFT: 160; VISIBILITY: hidden; WIDTH: 350; POSITION: absolute; TOP: 14; HEIGHT: 330" classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6> <PARAM NAME="Line0001" VALUE="SetFont('Impact',100, 650, 1, 0, 0)"><PARAM NAME="Line0002" VALUE="SetLineColor(110, 2 [1] 。55, 0)"><PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)"><PARAM NAME="Line0004" VALUE="SetFillStyle(1)"><PARAM NAME="Line0005" VALUE="Text('WEB', -100, 45, 0)">
|
|||||
| 文章录入：admin 责任编辑：admin | |||||
| 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 | |||||
| 最新热点 | 最新推荐 | 相关文章 | ||
| 没有相关文章 |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 网站公告 | 管理登录 | | |||
|
