Question

请教：按钮为vbYesNoCancel + vbExclamation的消息框，当点击取消按钮后，消息框消失，怎样用vb实现？

Answer 1

Do
Select Case MsgBox("随便点", vbYesNoCancel + vbExclamation)
Case vbYes
MsgBox "你点了[是]"
Case vbNo
MsgBox "你点了[否]"
Case Else
Exit Do
End Select
Loop

追问

您好，我是想使消息框消失就可以，不要退出程序，该怎样实现？

追答

我没有让程序退出啊？

追问

对不起，我是把您的代码放在Private Sub Form_Unload(Cancel As Integer)。。。
End Sub里面的，结果是退出程序；现在我想向您请教，当卸载窗体时，出现一个有是、否、取消三个按钮的消息框，我想点击取消按钮后消息框消失，但程序不退出，用vb如何实现？谢谢。

追答

Private Sub Form_Unload(Cancel As Integer)
Select Case MsgBox("随便点", vbYesNoCancel + vbExclamation)
Case vbYes
MsgBox "你点了[是]"
Case vbNo
MsgBox "你点了[否]"
Case Else
Cancel = -1
End Select
End Sub