如何在关闭窗体右上角关闭按钮（即X）时给出提示而不是直接关闭？

2012-03-20 11:47:32 432 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Devexpress的DocumentManager关闭浮动窗体时抛异常 Devexpress的DocumentManager关闭浮动窗体时抛异常如图，这是被我拖拽出的一个浮动窗体，当我点击右上角x关闭按钮时，抛如下异常：代码如下： private void tabbedView1_DocumentClosing(object sender, DevExpress.XtraBars.Docking2010.Views.DocumentCancelEventAr... 阅读详情

在程序运行中，如何在关闭窗体右上角关闭按钮（即X）时给出提示（如：是否已保存，确定退出？）而不是直接关闭？
在菜单中可以写代码退出系统，而这个关闭不知在哪里设置，在窗体的属性中一直找不到地方进行设置。请高手指点。

...全文

人工智能之语言领域自然语言处理第六章情感分析情感分析（Sentiment Analysis），又称意见挖掘（Opinion Mining），旨在自动识别和提取文本中表达的主观情感、态度或情绪。从用户评论到社交媒体，从产品反馈到政治舆情，情感分析已成为企业决策、品牌监控和人机交互的关键技术。本章将深入介绍情感分析的层级结构、核心技术、主流模型，并通过社交媒体舆情实战案例完整演示分析与可视化流程。层级目标示例词级（Word-level）判断单个词的情感倾向“好” → 正面；“差” → 负面句级（Sentence-level）判断整个句子的情感极性。阅读详情

l_g_guo

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

l_g_guo 2012-03-22

打赏
举报

上面的代码中第二段按OK应该是运行自身，第二次弹出对话框实际应该是运行第一段代码，按OK退出软件。经过调整，代码如下：
Private Sub Rebound_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MessageBox.Show("工程数据是否已保存，是否退出？", "真的退出吗？", MessageBoxButtons.OKCancel,
MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.OK Then
Exit Sub
Else
e.Cancel = True
End If
End Sub

Private Sub 退出XToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem1.Click
Me.Close()
End Sub

上面第二段代码，调用第一段的代码（直接调用过程不行，如Rebound_FormClosing(sender,e)，因为e类型不一致而出错。）现在这种情况，可以达到效果。只是不明白，第一段代码中，为何Exit Sub应是退出过程，怎么会是退出程序？

music_0000 2012-03-22

打赏
举报

FormClosing

l_g_guo 2012-03-22

打赏
举报

而确定后面都不加代码（else后面保留），按确定也会退出，即没有Exit Sub、Me.Dispose()或Application.Exit()，都会退出程序，它们有什么区别，是否都释放了内存？

l_g_guo 2012-03-22

打赏
举报

把Exit Sub改成Me.Dispose()可以达到同样效果，不过Me.Dispose()含义清楚。Application.Exit（）似乎多余，没有Me.Dispose()有Application.Exit()时，不知为何要确定两次，是否自动+1次重载？

EnForGrass 2012-03-22

打赏
举报

[Quote=引用 1 楼 wuyazhe 的回复:]

Form_Closing事件中，判断后，如果阻止，可以写e.Handle = true即可
[/Quote]
不就这么点代码。在FormClosing，不过是C#的



if (MessageBox.Show("您确认要退出吗？", "退出系统", MessageBoxButtons.OKCancel) == DialogResult.OK)

            {

                this.Dispose();

                Application.Exit();

            }

            else

                e.Cancel = true;

l_g_guo 2012-03-21

打赏
举报

调试后，代码调整如下：
Private Sub Rebound_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MessageBox.Show("工程数据是否已保存，是否退出？", "真的退出吗？", MessageBoxButtons.OKCancel,
MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.OK Then
Exit Sub
Else
e.Cancel = True
End If
End Sub
这段代码正常，满足要求（OK退出，Cancel不退出软件）。

Private Sub 退出XToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem1.Click
If MessageBox.Show("工程数据是否已保存，是否退出？", "真的退出吗？", MessageBoxButtons.OKCancel,
MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.OK Then
Me.Close()
Else
Exit Sub
End If
End Sub
这段代码，按OK需确定两次才退出，按Cancel则退出过程不退出软件。
有何改进办法？请指教。

l_g_guo 2012-03-21

打赏
举报

不好意思，调试后，发觉会陷入死循环，一直在Me.Close()这句上运行。而奇怪的是，没加入这个事件之前，在菜单退出中同样的代码，却能正常运行，即选OK就关闭退出，选Cancel就退出过程（不退出程序），这是为什么？请高手继续指教。

l_g_guo 2012-03-21

打赏
举报

提示e.Handle = true中Handle不是FormClosingEventArgs的成员。
用e.Cancel = True可以阻止退出。最后代码为：
Private Sub Rebound_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MessageBox.Show("工程数据是否已保存，是否退出？", "真的退出吗？", MessageBoxButtons.OKCancel,
MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.OK Then
Me.Close()
Else
Exit Sub
End If
End Sub
谢谢！选择的事件正确。

兔子-顾问 2012-03-20

打赏
举报

Form_Closing事件中，判断后，如果阻止，可以写e.Handle = true即可

兔子-顾问 2012-03-20

打赏
举报

Form_Closing事件中，判断后，如果阻止，可以写e.Handle = true即可

如何在关闭窗体右上角关闭按钮（即X）时给出提示而不是直接关闭？

相关推荐