以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  退出系统前  (http://foxtable.net/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()