以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  退出命令和全局事件的冲突问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18152)

--  作者:410109296
--  发布时间:2012/4/4 11:37:00
--  退出命令和全局事件的冲突问题

在菜单设计的全局事件 click 下有如下 一段代码,用途是单击菜单时,判断一下菜单名 ,根据菜单名调用具体的外部程序

If e.Sender.Name Like "AAAA*" Then
    Dim Proc As new Process
    proc.File = right(e.Sender.Name,len(e.Sender.Name)-4)
    proc.Start
End If

 

可是菜单中我又增加了一个退出菜单项代码是:Syscmd.Project.Exit(True)

 

问题就出现了

但我退出时 总是响一声,报错 什么也看不到,

费了几天功夫,后来找到了,是上面两段代码冲突,一个是退出,一个是想查一下退出菜单的名字

 

请求一个解决办法

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:退出.table


--  作者:狐狸爸爸
--  发布时间:2012/4/5 8:01:00
--  
测试你的文件,没有你说的问题。
--  作者:410109296
--  发布时间:2012/4/5 9:13:00
--  
不是关闭窗口,而是单击退出菜单项,我又到另外的机器试了,还是响一声
--  作者:狐狸爸爸
--  发布时间:2012/4/5 10:46:00
--  
这个没办法的。
--  作者:410109296
--  发布时间:2012/4/6 11:02:00
--  
我认为 有办法解决 只要你提供一个终止 事件的方法即可 包括终止全局事件
--  作者:狐狸爸爸
--  发布时间:2012/4/6 11:12:00
--  
我们看看吧。