VBA：vbYesNo 显示一个按钮，OK，没有别的答案

【问题标题】：VBA : vbYesNo displays a button with OK and nothing elseVBA：vbYesNo 显示一个按钮，OK，没有别的
【发布时间】：2015-12-17 08:20:59
【问题描述】：

标题不言自明。

这是一个插图

这是我正在使用的代码行。

If MsgBox("Are you sure?", vbYesNo) = Yes Then Exit Sub

我也在用EXTRA! X-treme

【问题讨论】：

Const vbYesNo = 4 和Const vbYes = 6，如果你尝试If MsgBox("Are you sure?", 4) = 6 Then Exit Sub 会发生什么？
@R3uK 谢谢你为我工作:)

标签： vba extra

【解决方案1】：

我不得不猜测 EXTRA！ X-treme（哇！夸张了很多？！）正在搞乱 vb 常量，或者如果它正在拦截对 MsgBox 函数的调用，至少不尊重它们。

vbYesNo 应该是一个常数数值 4。

另外，与其将 MsgBox 的结果与 Yes 进行比较，不如将其与 vbYes（数值 6）进行比较。

我认为您正确使用了 VBA（除了 vbYes 部分），所以这可能是额外的！ X-treme 错误（或未充分记录的功能）。

解决方案

If MsgBox("Are you sure?", 4) = 6 Then Exit Sub

【讨论】：

非常感谢艾伦！效果很好，我编辑了您的答案以添加更正的代码。再次感谢:)

【解决方案2】：

If DialogResult.OK = Windows.Forms.MessageBox.Show("Are You Sure ? ", "Choose Folder",System.Windows.Forms.MessageBoxButtons.OK,System.Windows.Forms.MessageBoxIcon.Question) Then
  ' Do Code
End If

【讨论】：