问题:在VB中如何编写提示窗口选择是否退出程序？

.代码祥哪改为:.Option Explicit.Dim uEnd As Variant..Private Sub Command2_Click().uEnd = MsgBox("您确定要离开吗?", vbYesNo + vbQuestion, "离开程序") '出现离开磨族提示窗口.If uEnd = vbYes Then.End.End If.End Su... 详细返回搜索结果页 热点新闻推荐1.“00后”女生谨游码矿大理学院报到 2.“揭黑”为赚钱:“社会焦点网”等11网站涉嫌敲诈被查<<返回知识人首页爱问搜索首页手机新浪网 wap.iask.com

代码改扰源为:

Option

Explicit

Dim

uEnd

As

Variant

Private

Sub

Command2_Click()

uEnd

=

MsgBox("缓卜态您确定要离开吗?",

vbYesNo

+

vbQuestion,

"离开程序")

'出现离开弊哪提示窗口

If

uEnd

=

vbYes

Then

End

End

If

End

Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Dim msgRes As VbMsgBoxResult

msgRes = MsgBox("是否退出?", vbQuestion + vbYesNo + vbDefaultButton2, "退出")

If msgRes = vbNo Then Cancel = 1

End Sub

1.用queryunload的好处：可以获得从哪里关渣虚闭（例如：从窗口的“×”关闭、从代码unload关橘梁岩闭、VB IDE的关闭等等……）

2.定义一个VbMsgBoxResult ：主要是容易处理其他事情，否则全部写在一句话里面比较烦，当圆御然在这里是简单的，很多人不知道有这个东西……所以拿出来下

3.vbDefaultButton2：默认按钮为第二个，即默认按钮为“No”（否）

---