以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  BeforeCloseProject事件代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160137)
--  作者：cd_tdh
--  发布时间：2021/1/22 9:23:00
--  BeforeCloseProject事件代码

老师，BeforeCloseProject事件代码如下，点击确定后一直循环怎么回事呢？不加代码，不出来提示框。

Dim Result As DialogResult
Result = MessageBox.Show("你确定要退出吗?","提示", MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
If Result = DialogResult.OK Then
    Syscmd.Project.Exit(True)
    Return
Else
    e.Cancel = True
End If

[此贴子已经被作者于2021/1/22 9:23:38编辑过]
--  作者：有点蓝
--  发布时间：2021/1/22 9:27:00
--  
Dim Result As DialogResult
Result = MessageBox.Show("你确定要退出吗?","提示", MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
If Result = DialogResult.Cancel Then
    e.Cancel = True
End If