鼠标移入、移出后明显感觉层移动的速度快了,怎么回事?

dczlxl 2004-08-03 05:14:23
鼠标移入、移出后明显感觉层移动的速度快了,怎么回事?
功能简介:利用层(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>
...全文
147 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
OnlyVB 2004-08-04
  • 打赏
  • 举报
回复
晕,根本就没人!
dczlxl 2004-08-04
  • 打赏
  • 举报
回复
本来就应该减小呀,要不怎么移动呢??
OnlyVB 2004-08-04
  • 打赏
  • 举报
回复
再顶
bugbug74 2004-08-03
  • 打赏
  • 举报
回复
Img_Y=Img_Y-Move_Step

Img_Y 的值随着你的鼠标动作在不停的减小呀?
在上面加上

Img_Y=300 试试
dickcat 2004-08-03
  • 打赏
  • 举报
回复
帮顶
dczlxl 2004-08-03
  • 打赏
  • 举报
回复

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧