站内搜索: 请输入搜索关键词

当前页面: 开发资料首页Javascript 专题foolpot2001菜单

foolpot2001菜单

摘要: foolpot2001菜单




<head>foolpot2001菜单



</head>

<body>

可拖动的菜单
菜单项一
菜单项二
菜单项三
菜单项四
 
菜单项五
<script language="vbs"> dim down,divleft,divtop,timelinestart,timelinestop,tidone,tidtwo,tidtree down=false timelinestart=0 timelinestop=0 sub document_onmousemove if down then plane.style.left=window.event.clientx-divleft plane.style.top=window.event.clienty-divtop end if lt.value=divleft tp.value=divtop tx.value=window.event.clientx ty.value=window.event.clienty end sub sub document_ondargstart window.event.returnvalue=false end sub function menuin() cleartimeout(tidtree) end function function menuout() tidtree=settimeout("outit()",200) end function function init() if timelinestart<>5 then cleartimeout(tidtwo) item1.style.pixelLeft=item1.style.pixelLeft-20 item1.filters.alpha.opacity=item1.filters.alpha.opacity+20 item2.style.pixelLeft=item2.style.pixelLeft-20-4 item2.filters.alpha.opacity=item2.filters.alpha.opacity+20 item3.style.pixelLeft=item3.style.pixelLeft-20-8 item3.filters.alpha.opacity=item3.filters.alpha.opacity+20 item4.style.pixelLeft=item4.style.pixelLeft-20-12 item4.filters.alpha.opacity=item4.filters.alpha.opacity+20 item5.style.pixelLeft=item5.style.pixelLeft-20-16 item5.filters.alpha.opacity=item5.filters.alpha.opacity+20 timelinestart=timelinestart+1 else cleartimeout(tidone) end if tidone=settimeout("init()",5) end function function outit() if timelinestart<>0 then cleartimeout(tidone) item1.style.pixelLeft=item1.style.pixelLeft-5 item1.filters.alpha.opacity=item1.filters.alpha.opacity-20 item2.style.pixelLeft=item2.style.pixelLeft-6-4 item2.filters.alpha.opacity=item2.filters.alpha.opacity-20 item3.style.pixelLeft=item3.style.pixelLeft-9-8 item3.filters.alpha.opacity=item3.filters.alpha.opacity-20 item4.style.pixelLeft=item4.style.pixelLeft-13-12 item4.filters.alpha.opacity=item4.filters.alpha.opacity-20 item5.style.pixelLeft=item5.style.pixelLeft-15-16 item5.filters.alpha.opacity=item5.filters.alpha.opacity-20 timelinestart=timelinestart-1 else cleartimeout(tidtwo) item1.style.pixelLeft=250 item2.style.pixelLeft=270 item3.style.pixelLeft=290 item4.style.pixelLeft=310 item5.style.pixelLeft=330 end if tidtwo=settimeout("outit()",1) end function </script> divleft:<input id=lt> divtop:<input id=tp>
clientx:<input id=tx> clienty:<input id=ty> </body> <script language="JavaScript"> </script>

</td> </tr> <tr> <td vAlign=top align=left height="100%">
↑返回目录
前一篇: IE NC通用的藏鼠标右键一法
后一篇: Menu