VBScript 实现文字遮罩

  作者:bea

如果打开后没见到效果,请等待一会儿。 <title>VBScript实现文字遮罩</title> <div id="myLightObject" style="position: relative; height: 336px; width: 336px; top: 10px; left: 0px; color: White; filter: light"> <center> ()提供各类编程源码、书籍教程、JavaScript
如果打开后没见到效果,请等待一会儿。



<title>VBScript实现文字遮罩</title>
<div id="myLightObject" style="position: relative; height: 336px; width: 336px; top: 10px; left: 0px; color: White; filter: light">
<center>
()提供各类编程源码、书籍教程、JavaScript/CSS特效代码以及常用软件下载等,做有质量的学习型源码下载站。提供各类编程源码、JavaScript/CSS特效代码以及常用软件下载等,做有质量的学习型源码下载站。
</center>
</div>
<script language="VBScript">
Option Explicit
sub window_OnLoad()
call myLightObject.filters.light(0).addambient(0,0,255,30)
call myLightObject.filters.light(0).addcone(400,400,200,100,100,200,204,200,80,10)
end sub
sub document_onMouseMove()
call myLightObject.filters.light(0).MoveLight(1,window.event.x,window.event.y,0,1)
end sub
</script>




[Ctrl+A 全选 注:
如需引入外部Js需刷新才能执行]



有用  |  无用

猜你喜欢