以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何做到快捷菜单适用于所有窗口? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78582) |
-- 作者:loongtai -- 发布时间:2015/12/12 6:06:00 -- [求助]如何做到快捷菜单适用于所有窗口? 例如窗口中如果有目录树,那目录树的查找可以做成一个通用的快捷菜单, 代码如下: 但是代码中的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") 即可 |