Foxtable(狐表)用户栏目专家坐堂 → [求助][原创]禁止用户使用窗口关闭键关闭系统


  共有3011人关注过本帖树形打印复制链接

主题:[求助][原创]禁止用户使用窗口关闭键关闭系统

帅哥哟,离线,有人找我吗?
biaoai2011
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:1098 威望:0 精华:0 注册:2017/2/26 17:50:00
[求助][原创]禁止用户使用窗口关闭键关闭系统  发帖心情 Post By:2018/7/15 15:28:00 [只看该作者]

请问老师,我用窗口设计了一个主界面(窗口模式为主窗口)。我想禁止用户通过窗口的关闭键关闭系统,而是用系统的功能按钮实现。要怎么写代码,写在哪个事件里。
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180715152329.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部