如何显示带有两个按钮的消息框？

Question

如何显示带有两个按钮的消息框(例如:"on","off")？

Answer 1

你可能想做这样的事情:

result = MsgBox ("Yes or No?", vbYesNo, "Yes No Example")

Select Case result
Case vbYes
    MsgBox("You chose Yes")
Case vbNo
    MsgBox("You chose No")
End Select

要添加图标:

result = MsgBox ("Yes or No?", vbYesNo + vbQuestion, "Yes No Example")

其他图标选项:

vbCritical or vbExclamation

Answer 2

VBScript 消息框对于可应用于按钮的标签相当有限，您的选择几乎限于：

• 好的
• 取消
• 重试
• 中止
• 忽略
• 是的
• 不

因此，如果您想要“ON”/“OFF”，您将必须构建自己的表单

更好的是，为什么不重新表述框中的提示，以便上述选项之一起作用。

例如：

Do you want the light on? 
[Yes] [No]

看在上帝的份上，不要做这些 UI 怪物之一！

Switch setting? (Click "yes" for ON and "No" for Off)
[Yes] [No]