以文本方式查看主题

-  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=121905)

--  作者:biaoai2011
--  发布时间:2018/7/15 15:28:00
--  [求助][原创]禁止用户使用窗口关闭键关闭系统
请问老师,我用窗口设计了一个主界面(窗口模式为主窗口)。我想禁止用户通过窗口的关闭键关闭系统,而是用系统的功能按钮实现。要怎么写代码,写在哪个事件里。
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180715152329.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/7/15 15:49:00
--  

方法一:AfterLoad事件

 

e.form.DisableXButton

 

方法二:设置属性->显示控制框->Flase

 

方法三:BeforeClose事件

 

If vars("允许关闭") = False Then

    e.Cancel = true

    msgbox("不能关闭")

End If

 

自己的关闭按钮

 

vars("允许关闭") = true

e.form.close