- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 主窗口关闭问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139300)
-- 发布时间：2019/8/10 11:08:00
-- 主窗口关闭问题
老师 好
我的主窗口的BeforeClose事件代码如下：
Dim Result As DialogResult = MessageBox.Show("将关闭播控平台!" + chr(13) + "确定关闭吗?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question ,MessageBoxDefaultButton.button2)
If Result = DialogResult.No Then
e.Cancel = True
Else
e.Cancel = False
End If
计时器窗口（独立型）的BeforeClose事件代码如下：
e.Cancel = True
Dim Result As DialogResult = MessageBox.Show("关闭计时器赛事计时将停止!!!" + chr(13) + "确定关闭吗?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question ,MessageBoxDefaultButton.button2)
If Result = DialogResult.Yes Then
e.Cancel = False
Else
e.Cancel = True
End If
问题是：要关闭主窗口时，会出现关闭
计时器窗口 的提示（如果计时器窗口是打开的状态）。
怎么编程才能在
关闭主窗口时，确定后，直接关闭项目系统，而不用去理会计时器窗口的关闭提示？[此贴子已经被作者于2019/8/10 11:10:23编辑过]
-- 发布时间：2019/8/10 11:27:00
--
我的主窗口的BeforeClose事件代码如下：
Dim Result As DialogResult = MessageBox.Show("将关闭播控平台!" + chr(13) + "确定关闭吗?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question ,MessageBoxDefaultButton.button2)
If Result = DialogResult.No Then
e.Cancel = True
Else
vars("close") = true
End If
计时器窗口（独立型）的BeforeClose事件代码如下：
if vars("close") then return
e.Cancel = True
Dim Result As DialogResult = MessageBox.Show("关闭计时器赛事计时将停止!!!" + chr(13) + "确定关闭吗?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question ,MessageBoxDefaultButton.button2)
If Result = DialogResult.Yes Then
e.Cancel = False
Else
e.Cancel = True
End If
-- 发布时间：2019/8/10 11:40:00
--
情况如下：
按主窗口右上角的关闭按钮，没有出现主窗口的关闭提示，而是出现计时器窗口的关闭提示
还是没有达到想要的效果
-- 发布时间：2019/8/10 12:43:00
--
老师：
没有到达想要的效果，为什么 ：按主窗口的关闭按钮，就先去执行计时器窗口的关闭按钮事件（如果这个时候计时器是open的），而不先执行主窗口的关闭按钮事件？
-- 发布时间：2019/8/10 13:59:00
--
请上传实例测试
-- 发布时间：2019/8/10 15:48:00
--
老师 已经上传 不知道上传成功没有？
zip文件，我怎么看不到我的上传文件？
用的是 添加附件，上传附件，再上传一次试试
[此贴子已经被作者于2019/8/10 15:52:32编辑过]
-- 发布时间：2019/8/10 16:25:00
--
主窗口是没有关闭按钮的，右上角关闭按钮是主界面，即整个项目的关闭按钮，这个要到项目的BeforeCloseProject事件处理，添加以下代码即可
vars("close") = True
-- 发布时间：2019/8/10 16:58:00
--
老师
主窗口和计时器窗口的BeforeClose事件都不变，只是在BeforeCloseProject 写vars("close") = True
运行多次还是不行，又是先出现计时器的关闭提示
-- 发布时间：2019/8/10 17:05:00
--
这个没有办法了，只能是屏蔽这个关闭按钮：
项目afteropenproject事件
RemoveXButton(baseMainform.handle)
然后自己添加一个按钮退出主窗口
然后自己添加一个按钮退出主窗口
-- 发布时间：2019/8/10 17:50:00
--
有没有关闭项目的代码？