以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何做到快捷菜单适用于所有窗口?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=78582)

--  作者:loongtai
--  发布时间: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
--  发布时间:2015/12/12 11:08:00
--  
版主有在吗???帮帮忙啊
--  作者:Hyphen
--  发布时间:2015/12/12 11:23:00
--  
参考http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=24039
--  作者:loongtai
--  发布时间:2015/12/12 17:03:00
--  
谢谢,现在我用的也是这种方法


--  作者:大红袍
--  发布时间:2015/12/13 13:07:00
--  

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

 

vars("sender") = e.Sender

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

 

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