以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  退出系统前  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185581)

--  作者:cd_tdh
--  发布时间:2023/3/3 9:57:00
--  退出系统前
我单独做了一个退出系统的按钮
代码如下:
Dim Result As DialogResult = MessageBox.Show("你确定要退出系统吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Syscmd.Project.Exit(False)
End If
但是我通过右上角退出系统,不会提示,如果代码写到BeforeCloseProject事件,通过按钮里面也写就会重复提示,有没办法通过按钮来执行BeforeCloseProject事件代码呢?


--  作者:有点蓝
--  发布时间:2023/3/3 10:08:00
--  
BeforeCloseProject事件

Dim Result As DialogResult = MessageBox.Show("你确定要退出系统吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then
    e.cance=true
return
End If
e.SkipSave=true

按钮
Syscmd.Project.Exit()