主题：退出代码导致错误

输入以下代码，确认后出现如图，请问怎么解决？

If MessageBox.Show("是否退出平台?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes
e.Form.Close
Syscmd.Project.Exit(True)
End If

 

 

 

 

 

此主题相关图片如下：未标题-1.jpg

If MessageBox.Show("是否退出平台?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes

Syscmd.Project.Exit(True) 
End If

 这段代码不会导致出错，肯定有其它代码影响，比如 BeforeCloseProject事件等

还是一样

beforecloseproject 是空的， 整个全局就一个afteropenproject 有代码，包括这个窗口的事件都是空的。我准备拿到另外的电脑试试看

你的窗口关闭事件 和项目关闭事件 有代码影响,发出来看看吧

我重建了一个空白的项目，把这个代码放进去，没有报错，我再仔细看看有什么问题

这种情况，一般是哪个表事件影响了。

找到问题了，是afteropenproject造成的：

 

Forms("主窗口").Open()

 

主窗口的类型是模式， 退出代码放在主窗口里点击就会报错，放在其它窗口又没问题。这个怎么回事

orms("主窗口").Open()