- 1、本文档共12页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
右键菜单的编程方案
Design-ERP-右键菜单的编程方案
Page PAGE 12 of NUMPAGES 12
右键菜单的编程方案
注:右键菜单的编程方案分以下两种:(2011.11.23)
A:GridView的dDIP();popRM()机制
B:TreeView的Tree+RMT机制
添加菜单条屏蔽功能之后
右图是onmouseover的效果
ASP页面中模拟MsWindow实现菜单条的屏蔽功能一直是一个心愿,一年多来,终究没能实现,最近静下心来,搞定了整个右键菜单的编程方案。
在RMD.js文件中,首先是画好一个菜单框架,并使其隐藏于页面,在原基础上,增加了三个id机制,实现了菜单条的屏蔽功能,更为方便的是可以在页面中直接利用$RMD变量去定义右键菜单及其表现细节。屏弃了原先的全凭$FuncNameForRMD变量而在RMD.js文件中利用switch和case去筛选设置各个页面的菜单的方式,这种方式无疑让我感到恐惧,因为RMD.js文件会因此而膨胀。
在ASP页面文件中可以如下定义:
script type=text/javascript
var $RMD=add,添加|kill,删除|edit,编辑hr|ext,扩展信息;
var $FuncNameForRMD=MhiAdmin;
System.Linkcss(RMD);//链接css文件
System.Loadjs (RMD);
/script
而此时的$FuncNameForRMD仅是延用以前的RMD.js中的switch和case的机制的变量命名,其实,这个变量的命名应该换成$PageNameOfRMD。在RMD.js文件中,再一次地加载了各RMD的动作定义文件,而定义RMD动作的文件中也可以定义任何页面动作的js代码,所以这个被RMD.js文件再一次地加载的文件的存在是合理的,只要将$PageNameOfRMD变量手工地在页面中定义成页面文件的名称即可,例如:MhiView.asp页面文件中可以定义$PageNameOfRMD=”MhiView”,
script type=text/javascript
var $RMD=add,添加|kill,删除|edit,编辑hr|ext,扩展信息;
var $PageNameOfRMD=MhiView;
System.Linkcss(RMD);//链接css文件
System.Loadjs (RMD);
/script
于是,在RMD.js文件中即可以采用如下语句加载动作文件:
System.Loadjs(“/RMD/”+$PageNameOfRMD);
注:动作文件被集中到js的RMD目录下。
■屏蔽菜单条的测试过程
在页面文件中简单地放置一个按钮,以期出现不同的菜单效果:
!--调试菜单条的动态屏蔽功能--
input type=button name=”test” value=”屏蔽菜单测试”
onclick=$(ItemDivOfRMD1).className=DisableRMDItem;
$(ItemTDofRMD1).onclick=function(){return false;};
$(ItemTDofRMD1).onmouseover=function(){return false;};
$(ItemTextOfRMD1).className=RMDItemColor /
右图是按下测试按钮后的效果
可以看出,上述按钮语句中的三个id就是实现菜单屏蔽功能的关键,而所需屏蔽的菜单条的次序就是$RMD字符串中的菜单次序,三个id的功能分别如下:
显示屏蔽色
阻止菜单条动作
使菜单条整条显示屏蔽色
ItemTextOfRMD1
ItemTDOfRMD1
ItemDivOfRMD1
注意上述三个Id中的最后一位数字,它表示菜单条的次序。
由测试按钮的代码可以实现通用ASP函数DisableItemOfRMD(Indexs),代码如下:
%
菜单条的屏蔽
Function DisableItemOfRMD(Indexs)
Dim Idx
Idx =Split(Indexs,,)
Dim Js,Js1,Js2
Dim i
Js =
Js1 =script type=text/javascript
For i=0 To Ubound(Idx)
Js =Js+$(ItemDivOfRMDIdx(i)).className=DisableRMDItem;
Js =Js+$(ItemTextOfRMDIdx(i)).className=RMDItemColor;
Js =Js+$(It
您可能关注的文档
最近下载
- 第四章刺胞动物门之一.pptx
- 中国的经济发展.pptx VIP
- 17J008 挡土墙(重力式、衡重式、悬臂式)(最新).pdf
- 空气能热泵热水机安装使用维修手册一.pdf
- 直播运营管理全套完整教学课件.pptx
- 2023年注册监理工程师继续教育电力工程专业考试试题及答案80分.pdf
- Q∕GDW 11897-2018- 调度自动化机房设计与建设规范.pdf
- 第4课《古代诗歌四首——闻王昌龄左迁龙标遥有此寄》课件(共27张PPT)2022—2023学年部编版语文七年级上册.pptx
- PDA TR27-1998 Pharmaceutical Package Integrity英文原版资料.pdf
- Q∕GDW 11897-2018 调度自动化机房设计与建设规范.docx
文档评论(0)