Foxtable(狐表)用户栏目专家坐堂 → [求助]如何做到快捷菜单适用于所有窗口?


  共有3498人关注过本帖树形打印复制链接

主题:[求助]如何做到快捷菜单适用于所有窗口?

帅哥哟,离线,有人找我吗?
loongtai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:574 积分:4332 威望:0 精华:0 注册:2013/7/26 10:24:00
[求助]如何做到快捷菜单适用于所有窗口?  发帖心情 Post By:2015/12/12 6:06:00 [只看该作者]

例如窗口中如果有目录树,那目录树的查找可以做成一个通用的快捷菜单,
代码如下:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20151212060238.png
图片点击可在新窗口打开查看
但是代码中的tr针对不同窗口中不同TreeView,定义又是不一样的
窗口A中的定义为:Forms("窗口A").Controls("trv_1")
窗口B中的定义则有可能为:Forms("窗口B").Controls("trv_2")
如何做到tr只针对当前窗口的当前TreeView控件,类似于在窗口中treeview编程,要引用当前treeview只需用e.sender即可,而不需要具体的名称


[此贴子已经被作者于2015/12/12 6:09:26编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
loongtai
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:574 积分:4332 威望:0 精华:0 注册:2013/7/26 10:24:00
  发帖心情 Post By:2015/12/12 11:08:00 [只看该作者]

版主有在吗???帮帮忙啊

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/12/12 11:23:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
loongtai
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:574 积分:4332 威望:0 精华:0 注册:2013/7/26 10:24:00
  发帖心情 Post By:2015/12/12 17:03:00 [只看该作者]

谢谢,现在我用的也是这种方法


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/13 13:07:00 [只看该作者]

用变量记录一下不就行了?

 

vars("sender") = e.Sender

ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y) '则在鼠标位置显示快捷菜单

 

然后在菜单里直接用 vars("sender") 即可


 回到顶部