以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何显示点击这个关闭按钮之后弹出一个对话框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=166160)

--  作者:gihilli
--  发布时间:2021/5/21 11:31:00
--  [求助]如何显示点击这个关闭按钮之后弹出一个对话框
这是一个窗口的界面,现在想显示一个功能。
如何实现点击这个关闭按钮之后弹出一个对话框(对话框的内容为:是否确定退出本系统?)
如果”是“则退出系统,如果”否“则关闭弹出的对话框
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2021/5/21 11:37:00
--  
窗口BeforeClose:http://www.foxtable.com/webhelp/topics/0712.htm
--  作者:gihilli
--  发布时间:2021/5/21 12:04:00
--  
请问一下代码应该要怎么写呢
可以参考一下嘛?

--  作者:有点蓝
--  发布时间:2021/5/21 12:08:00
--  
Dim Result As DialogResult
Result = MessageBox.Show(
"
是否确定退出本系统?""提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If
 Result = DialogResult.
No Then
  
e.Cancel = True
End
 if