鼠标移入、移出后明显感觉层移动的速度快了,怎么回事?
鼠标移入、移出后明显感觉层移动的速度快了,怎么回事?
功能简介:利用层(move_img)使层中的内容不断上移,鼠标移入时停止,移出时继续向上移动。
<script language ="vbs">
<!--
Dim Img_Height,Img_ShowSize,Move_Step,Img_Y,Sign
Sub Window_Onload()
Move_Step=1
Img_ShowSize=300
Img_Y=300
Img_Height = move_img.offsetheight
Call move_img_OnmouseOut()
End Sub
Sub Move_BMP()
Img_Y=Img_Y-Move_Step
move_img.style.top=Img_Y
if (Img_Y+Img_Height)<0 then Img_Y=Img_ShowSize
if Sign then SetTimeout "Move_BMP()",150
End Sub
Sub move_img_OnmouseOver()
Sign=False
End Sub
Sub move_img_OnmouseOut()
Sign=True
Call Move_BMP
End Sub
-->
</script>