VBA : vbYesNo 显示带有 OK 的按钮，仅此而已

Question

标题不言自明。

这是一个插图

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

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

我也在用EXTRA! X-treme

Answer 1

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

vbYesNo 应该是常量数值 4。

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

我认为您正确地使用了 VBA（vb 是的部分除外），所以这可能是额外的！ 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

VBA : vbYesNo 显示带有 OK 的按钮，仅此而已

VBA : vbYesNo displays a button with OK and nothing else

vba

extra

解决方案