我的主窗口的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
加好友 
发短信
Post By：2019/8/10 11:27:00 [只看该作者]
