LANBOR2000菜单的VBS版拖动功能加强

最新推荐文章于 2021-05-29 01:09:11 发布
最新推荐文章于 2021-05-29 01:09:11 发布
阅读量449 收藏
点赞数
分类专栏： js脚本 文章标签： function filter class div input border
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jujuchen/article/details/1631458
版权

<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 οnmοusedοwn="down=true;divleft=event.clientX-parseInt(plane.style.left);divtop=event.clientY-parseInt(plane.style.top)" οnmοuseup="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" οnmοuseοver="menuin();init()" οnmοuseοut="menuout()">可拖动的菜单</div>
<div align=center id="item1" style="position:absolute; left:50px; top:55px; width:99px; height:19px; z-index:2; filter:alpha(opacity=0)" οnmοuseοver="this.className='over';menuin()"
οnmοuseοut="this.className='none';menuout()" class="none"
>菜单项一</div>
<div align=center id="item2" style="position:absolute; left:250px; top:77px; width:99px; height:19px; z-index:3;filter:alpha(opacity=0)"
class=none οnmοuseοver="this.className='over';menuin()"
οnmοuseοut="this.className='none';menuout()">菜单项二</div>
 <div align=center id="item3" style="position:absolute; left:50px; top:99px; width:99px; height:19px; z-index:4; filter:alpha(opacity=0)"
class=none οnmοuseοver="this.className='over';menuin()"
οnmοuseοut="this.className='none';menuout()">菜单项三</div>
<div align=center id="item4" style="position:absolute; left:250px; top:121px; width:99px; height:19px; z-index:5;filter:alpha(opacity=0)"
class=none οnmοuseοver="this.className='over';menuin()"
οnmοuseοut="this.className='none';menuout()">菜单项四</div>  <div align=center id="item5" style="position:absolute; left:50px; top:143px; width:99px; height:19px; z-index:6; filter:alpha(opacity=0)"
class=none οnmοuseοver="this.className='over';menuin()"
οnmοuseοut="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
item2.filters.alpha.opacity=item2.filters.alpha.opacity+20
item3.style.pixelLeft=item3.style.pixelLeft+20
item3.filters.alpha.opacity=item3.filters.alpha.opacity+20
item4.style.pixelLeft=item4.style.pixelLeft-20
item4.filters.alpha.opacity=item4.filters.alpha.opacity+20
item5.style.pixelLeft=item5.style.pixelLeft+20
item5.filters.alpha.opacity=item5.filters.alpha.opacity+20
timelinestart=timelinestart+1
else
cleartimeout(tidone)
end if
tidone=settimeout("init()",1)
end function
function outit()
if timelinestart<>0 then
cleartimeout(tidone)
item1.style.pixelLeft=item1.style.pixelLeft-20
item1.filters.alpha.opacity=item1.filters.alpha.opacity-20
item2.style.pixelLeft=item2.style.pixelLeft+20
item2.filters.alpha.opacity=item2.filters.alpha.opacity-20
item3.style.pixelLeft=item3.style.pixelLeft-20
item3.filters.alpha.opacity=item3.filters.alpha.opacity-20
item4.style.pixelLeft=item4.style.pixelLeft+20
item4.filters.alpha.opacity=item4.filters.alpha.opacity-20
item5.style.pixelLeft=item5.style.pixelLeft-20
item5.filters.alpha.opacity=item5.filters.alpha.opacity-20
timelinestart=timelinestart-1
else
cleartimeout(tidtwo)
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> 

jujuchen
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
javascript实现自定义右键菜单（绑定鼠标左右键）
m0_71765265的博客
01-26 2989
js实现自定义右键思路： 1.绑定鼠标右键函数。 2.获取鼠标右键按下位置的x坐标（到左面的距离），y坐标（到上面的距离）。 3.获取滚动条向下滚动距离，获取滚动条向左滚动距离4.最后+‘px’,补全单位，添加到元素style属性，将元素移动到鼠标右键位置。
JS自定义右键菜单
weixin_41897680的博客
04-14 4407
JS自定义右键菜单
JS设置鼠标右键菜单
08-04
通过JS来设置鼠标的右键..使鼠标右键能有自己想要的功能..
[JavaScript] 如何自定义更改鼠标右键...
weixin_33696106的博客
06-08 194
&lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"&gt;&lt;html&gt;&lt;head&gt;&lt;meta http-equiv="Content-Type" content="text/html; charset
js右键点击更改提示菜单
chuanwenbin5205的博客
03-22 367
今天一个ftl页面需要右键点击弹出自定义提示菜单(也是一个ftl页面) <li class="ping_libox" oncontextmenu="myFun();return false;"></li> 定义了一个方法myFun() function myFun...
js实现自定义右键菜单
YetnumSun的博客
02-13 4252
JavaScript实现自定义右键菜单，思路如下： 1. 屏蔽默认右键事件； 2. 隐藏自定义的菜单模块（如div、ul等）； 3. 右键点击特定或非特定区域，显示菜单模块； 4. 再次点击，隐藏菜单。 明确了思路，下面给出相关代码： HTML 选择类型： 拼接视频文件 拼接图片文件
WEB开发中的右键自定义菜单
J_JAKE（陆冷飞）的专栏
11-30 3304
项目需要一个右键自定义的菜单，包括一些常用的功能，在网上搜索到一个代码，感觉效果不错，放在此处供大家使用，代码版权归原作者所有下面看看我使用的效果图： 代码包括2个文件： JS代码文件menu0.js,样式表文件main.cssmenu0.js  代码如下：// JavaScript Documentvar strMenu = ""strMenu += "返回"strMenu += "
js屏蔽鼠标右键默认事件以实现自定义菜单
热门推荐
夏尔的小酒馆
12-18 1万+
2017-12-18日，2017年即将结束的日子里。 公司做了一个项目，主要难点在于实现公司组织架构图上，何谓组织架构图，如下便是： 这里的每个节点都有相应的右键菜单，说白了就跟你用xmind的体验是一样的，用户体验自然是很好的，毕竟开发了都接近一个礼拜，而且还要加班。 做公司项目嘛，就要求快，首先就是先在网上找现成的呗，最开始找的是OrgChart,可是它对数据格式的要求十
js自定义右键菜单
halo1416的博客
09-23 1万+
前言：现在的网页基本都是有右键菜单的，类似于： （来自于Chrome任务网页，“捕捉网页截图 - FireShot的” 是安装的一个插件）； 但是，我们有时候可以在一些网站上看到不一样的右键菜单即自定义右键菜单，如腾讯企业邮箱网页版：   今天，记录一些简单的右键菜单是怎么做的： &lt;!DOCTYPE html&gt; &lt;html&gt; &lt;head&gt; ...
java 右击出现复制、剪切和黏贴功能，下载后可直接使用
03-26
java 右击出现复制、剪切和黏贴功能，下载后可直接使用
重写JS的鼠标右键点击菜单
02-15 175
该效果主要有三点，一是对重写的下拉菜单的隐藏和显示；二是屏蔽默认的鼠标右键事件；三是鼠标左键点击页面下拉菜单隐藏。 不多说，上html代码： 1 <ul id="wrapper"> 2 <li><a>一级</a></li> 3 <li><a>二级</a></l...
简单源生JS实现自定义右键菜单效果
NINE-NINE的博客
05-17 7003
简单源生JS实现自定义右键菜单效果
js自定义鼠标右键菜单
susuzhe
03-15 3487
我们在浏览器上点击右键会出现一些经常见的菜单，下面我将介绍如何自定义自己的菜单。 自定义右键菜单 body,ul,li{margin:0;padding:0;} body{font:12px/24px arial;} #menu{position:absolute;top:-9999px;left:-9999px;width:100px;border-radius:3px;list-s
js鼠标添加右击事件
sms
09-11 6053
前言    在做ITOO项目课程表教师端这块儿时，发现只有修改、添加、导入的功能，验收的时候说添加一个删除的功能吧，右击删除，接下来就是实践了，因为这块本来有双击事件，现在要添加一个右击事件，本来想用EasyUI封装的右击菜单，无奈一直没有成功，主要还是自己能力问题。。后来就换了一种实现思路。 代码  $(document).bind("contextmenu", function ()
JS自定义鼠标右键菜单
越陌度阡
06-08 968
<!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>自定义鼠标右键菜单</title> <style> * { ...
jQuery,JS实现自定义鼠标右键菜单
邓占勇的博客
08-21 5041
鼠标点击事件基本上是每个页面必不可少的，绝大多数情况下都是普通的鼠标左键点击，即可以通过click()方法来实现。 但是我们在很多情况下我们想通过鼠标右键来实现一些功能的实现，比如说一个表格数据，表格的每行数据都可以进行删除、修改、发送等等操作，如果采用在每行都添加这些操作按钮的话，这样做起来很麻烦，并且占据了很多空间。如果我们队每行数据可以采用鼠标右击的方式，然后弹出操作选择模块。这样整个页面...
js更改网页默认右键菜单
程序员三木的博客
05-29 1197
文章目录1. 基础2. 实现思路3. 测试代码4. 结果 1. 基础 2. 实现思路 使用ul配合li写出你想要自定义的菜单，并给每个li绑定处理事件 写自定义菜单的样式 隐藏ul 对document.oncontextmenu 绑定函数，阻止默认行为 显示自定义菜单 菜单被点击完之后，隐藏自定义的菜单 3. 测试代码 <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8">
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值