分享
 
 
 

foolpot2001菜单

王朝html/css/js·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

<html>

<head><title>foolpot2001菜单</title>

<style>

body,td,a {font-size:9pt;color:black}

.none{border:black 1px solid;background:D9D9D9;padding-top:2}

.over {border:black 1px solid;background:707888;color:white;padding-top:2}

</style>

</head>

<body>

<div style="position:absolute; left: 100; top: 100;cursor: hand" ID=plane onmousedown="down=true;divleft=event.clientX-parseInt(plane.style.left);divtop=event.clientY-parseInt(plane.style.top)" onmouseup="down=false">

<div align=center style="position:absolute; left:150px; top:33px; width:100px; height:19px; z-index:1;color:white;background:707888;cursor:move" class="none" onmouseover="menuin();init()" onmouseout="menuout()">可拖动的菜单</div>

<div align=center id="item1" style="position:absolute; left:250px; top:55px; width:99px; height:19px; z-index:2; filter:alpha(opacity=0)" onmouseover="this.className='over';menuin()" onmouseout="this.className='none';menuout()" class="none">菜单项一</div>

<div align=center id="item2" style="position:absolute; left:270px; top:77px; width:99px; height:19px; z-index:3;filter:alpha(opacity=0)"

class=none onmouseover="this.className='over';menuin()"

onmouseout="this.className='none';menuout()">菜单项二</div>

<div align=center id="item3" style="position:absolute; left:290px; top:99px; width:99px; height:19px; z-index:4; filter:alpha(opacity=0)"

class=none onmouseover="this.className='over';menuin()"

onmouseout="this.className='none';menuout()">菜单项三</div>

<div align=center id="item4" style="position:absolute; left:310px; top:121px; width:99px; height:19px; z-index:5;filter:alpha(opacity=0)"

class=none onmouseover="this.className='over';menuin()"

onmouseout="this.className='none';menuout()">菜单项四</div><div align=center id="item5" style="position:absolute; left:330px; top:143px; width:99px; height:19px; z-index:6; filter:alpha(opacity=0)" class=none onmouseover="this.className='over';menuin()" onmouseout="this.className='none';menuout()">菜单项五</div>

</div>

<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><br>

clientx:<input id=tx> clienty:<input id=ty>

</body>

</html>

<html><script language="JavaScript"> </script></html>

<html></html>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有