vba - VBA：vbYesNo 显示一个按钮，OK，没有别的

Question

标题不言自明。

这是一个插图

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

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

我也在使用EXTRA！极限

Answer 1

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

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

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

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

---

解决方案

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

Answer 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