关于表格关闭事件我很困惑

Question

我想要这样，当单击“x”按钮时，会出现一个消息框，显示“您确定要退出吗？”然后，如果“是”，则关闭，如果“否”，则保持打开状态。所以我的代码是：

Dim a As Integer
a = MessageBox.Show("Are you sure you want to exit?", _
                    "Vice Versa 1.0", _
                    MessageBoxButtons.YesNo, _
                    MessageBoxIcon.Information)
If a = vbYes Then
  Me.Close()
Else
  Exit Sub
End If

这应该有效，不是吗？当我调试我的项目时，单击“否”仍然会退出我的程序。这只是因为它处于调试模式还是我在这里遗漏了一些东西？

（编辑：）也没有警告或错误。

有没有办法让我的游戏在消息框显示时暂停？只有当用户按键盘上的“p”时，我才可以使用它。但也希望游戏在消息框显示时暂停，而不按“p”

Answer 1

您还必须设置 Cancel 属性来取消关闭。在 Exit Sub 之前的行中添加：

e.Cancel = True

，您不必再次执行 Me.Close。编写 If 块的更好方法就是：

a = MessageBox.Show(....)
If a = DialogResult.No Then
    e.Cancel = True
End If