滑动条方式显示图片

2024-04-27 13:58:56

字体：大中小

来源：转载

供稿：网友

<SCR<a href="http://ip.vevb.com/">ip</a>T language=VBScript>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) RotateAllend subSub 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('vevb.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.vevb.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('vevb.com', -95, 0)"></OBJECT>

上一篇：限制页面浏览的时间特效代码

下一篇：符合标准的对联广告网页特效代码

学习交流

硬盘分区如何设置准确的分区空间

硬盘分区如何设置准确的分区空间...

热门图片

猜你喜欢的新闻

猜你喜欢的关注