以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【请教】屏蔽项目关闭按钮然后自定义退出按钮的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56676)

--  作者:bahamute
--  发布时间:2014/9/10 16:59:00
--  【请教】屏蔽项目关闭按钮然后自定义退出按钮的问题
特来请教:

1、如何屏蔽系统关闭按钮?
是在beforeclose事件使用如下代码吗?
         e.Cancel = True
2、自定义退出按钮代码如何写?
Syscmd.Project.Exit(True)  这样写好像与点击关闭项目是一样的结果。

--  作者:有点甜
--  发布时间:2014/9/10 17:02:00
--  
 e.Form.Close
--  作者:bahamute
--  发布时间:2014/9/10 17:03:00
--  
e.Form.Close 也可以退出项目吗?
--  作者:有点甜
--  发布时间:2014/9/10 17:06:00
--  

 哦,这样你就得加入一个变量去控制,如果是点击按钮的话,把变量比如 vars("允许关闭") = True

 

 BeforeCloseProject事件判断

 

 If vars("允许关闭") = False Then e.Cancel = True


--  作者:Bin
--  发布时间:2014/9/10 17:06:00
--  
1.basemainform.controlbox=False
2.你的代码没错

--  作者:bahamute
--  发布时间:2014/9/10 21:17:00
--  
谢谢,已解决。