了解从 MsgBox 返回的响应代码

Question

我对编程很陌生，我刚刚开始学习 VBA 和 Excel。我在这个网站上遇到并做了这里的示例，但我对这段代码有疑问：

我知道变量是使用“Dim”语句声明的，“Message”这里是数据类型为整数的变量。我不太明白的是；这里的“6”和“7”是什么意思？我相信他们来自某个地方。但由于我刚刚开始学习这个程序，我没有任何想法。你能告诉我它是如何最终变成“6”和“7”的吗？我相信这里有一些基础

Private Sub CommandButton1_Click()
Dim message As Integer
message = MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
If message = 6 Then
Range("A1").Value = "You may proceed"
ActiveWorkbook.Activate 
ElseIf message = 7 Then
ActiveWorkbook.Close
End If

End Sub

谢谢你的帮助:-)

=======

谢谢大家的回答，他们非常有帮助。是的，该主题已发布在超级用户站点中。我被告知这个问题应该属于这里，所以我在读到他们会从超级用户到 stackoverflow 自动执行此操作后将其发布在这里。

再次感谢

Answer 1

MsgBox 确实返回一个名为 MsgBoxResult 的 Enum(eration)，它基本上只是带有“标签”的数值。本例中的 6 和 7 是该枚举的成员，它们映射到答案 Yes 和 No。

应尽可能避免使用所谓的“幻数”而不是常量或枚举。

基本上，您可以将代码重写为：

Dim message As Integer
message = MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
If message = MsgBoxResult.Yes Then
    Range("A1").Value = "You may proceed"
    ActiveWorkbook.Activate
ElseIf message = MsgBoxResult.No Then
    ActiveWorkbook.Close
End If

可能 Enum 被称为 vbMsgBoxResult 或其他...我没有 Office 来验证这一点，只有 Visual Studio。

当我们讨论这个问题时......这可能更容易理解：

Select Case MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
    Case MsgBoxResult.Yes
        Range("A1").Value = "You may proceed"
        ActiveWorkbook.Activate

    Case MsgBoxResult.No
        ActiveWorkbook.Close

    Case MsgBoxResult.Cancel
        ' he clicked cancel '

End Select

Answer 2

当我第一次开始使用 MsgBox 答案时，我几乎总是将答案声明为 Integer。但是，我了解到最好的做法是将您的 message 变量声明为 VbMsgBoxResult，这是一个始终显示可用答案的枚举。在下图中，IDE（例如 Visual Basic for Application 编辑器）将向您显示 VbMsgBoxResult 中可用的选项。

您可以存储您的答案变量作为Integer，因为枚举中的所有变量（例如vbAbort、vbYes、vbOK等） ）实际上解析为整数。但是，每次要引用这些变量时，您都必须弄清楚这些变量的整数值是什么。在我看来，将答案存储为 VbMsgBoxResult 是更好的做法，这样您就可以实际看到可用的答案。

Answer 3

此链接适用于 VBScript，但我认为返回代码应该相同：
MsgBox 函数参考

返回代码告诉您哪个按钮被点击：

1   OK
2   Cancel
3   Abort
4   Retry
5   Ignore
6   Yes
7   No

Answer 4

这是写得非常糟糕的代码，“6”和“7”是当用户在对话框上单击“是”或“否”时返回的常量“vbYes”和“vbNo”的值。

参考：http://www.techonthenet.com/access/constants/msgbox_ret.php

代码应该说

If message = Constants.vbYes 

而不是

If message = 6

So 清楚发生了什么。

Answer 5

这些是 MsgBox() 的返回值。作者应该使用它们的符号值来使程序更具可读性：

vbYes   6
vbNo    7

请参阅此 MSDN 文章 了解更多信息

Answer 6

6 和 7 是 MsgBox 方法的返回代码。基本上，当调用 MsgBox 时，它会向用户显示一个消息框，用户可以单击“是”、“否”或“取消”。用户的选择以数字形式从 MsgBox 方法返回，其中 6 表示“是”，7 表示“否”。

最好的做法是不要在代码中直接使用这些数字，而是使用 Microsoft 提供的代表它们的常量。您的代码可以重写为：

Private Sub CommandButton1_Click()
    Dim message As Integer
    message = MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
    If message = vbYes Then
        Range("A1").Value = "You may proceed"
        ActiveWorkbook.Activate 
    ElseIf message = vbNo Then
        ActiveWorkbook.Close
    ElseIf message = vbCancel Then
        'Do nothing.
    End If
End Sub

Answer 7

6 和 7 是具有特殊含义的硬编码值。 “MsgBox("Click Yes...")”调用将返回一个数字，让您的代码确定用户对消息框执行的操作，然后您可以使用条件（您的 IF 语句）来决定下一步要做什么。

这些特殊值的完整列表可以在 MSDN 文档中找到：

http://msdn.microsoft.com/en-us/library/139z2azd(VS.80).aspx

Answer 8

只需重写为等效内容：

Private Sub CommandButton1_Click()
  Dim optionSelected As VbMsgBoxResult
  optionSelected = MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
  If optionSelected = vbYes Then
    Range("A1").Value = "You may proceed"
    ActiveWorkbook.Activate 
  ElseIf optionSelected = vbNo Then
    ActiveWorkbook.Close
  End If
End Sub

然后继续