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

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

无法完成。 MsgBox按钮只能有特定的值。
您必须为此滚动您自己的表单。

要创建具有两个选项（是/否）一个MsgBox：

MsgBox("Some Text", vbYesNo) 

Answer 3

的VBScript Messagebox是相当有限的，以你可以应用到按钮上的标签，你的选择是非常限于：

• OK
• 取消
• 重试
• 中止
• 忽略
• 是
• 没有

所以，你将不得不如果你想建立自己的形式“ON” /“OFF”

更好的是，为什么不能改写的在框中提示，以便上述选项之一工作。

例如：

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

而偏偏不做这些UI怪物之一！

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

Answer 4

记住 - 如果你将按钮设置为vbOkOnly - 它将始终返回1.

因此，您不能确定用户是否单击关闭或确定按钮。你只需要添加一个vbOk选项。

Answer 5

这是可以做到的，我发现它在网络上的其他地方......这是没办法我的工作！ :)

Option Explicit 
' Import 
Private Declare Function GetCurrentThreadId Lib "kernel32"() As Long 

Private Declare Function SetDlgItemText Lib "user32" _ 
    Alias "SetDlgItemTextA" _ 
    (ByVal hDlg As Long, _ 
    ByVal nIDDlgItem As Long, _ 
    ByVal lpString As String) As Long 

Private Declare Function SetWindowsHookEx Lib "user32" _ 
    Alias "SetWindowsHookExA" _ 
    (ByVal idHook As Long, _ 
    ByVal lpfn As Long, _ 
    ByVal hmod As Long, _ 
    ByVal dwThreadId As Long) As Long 

Private Declare Function UnhookWindowsHookEx Lib "user32" _ 
    (ByVal hHook As Long) As Long 

' Handle to the Hook procedure 
Private hHook As Long 

' Hook type 
Private Const WH_CBT = 5 
Private Const HCBT_ACTIVATE = 5 

' Constants 
Public Const IDOK = 1 
Public Const IDCANCEL = 2 
Public Const IDABORT = 3 
Public Const IDRETRY = 4 
Public Const IDIGNORE = 5 
Public Const IDYES = 6 
Public Const IDNO = 7 

Public Sub MsgBoxSmile() 
    ' Set Hook 
    hHook = SetWindowsHookEx(WH_CBT, _ 
          AddressOf MsgBoxHookProc, _ 
          0, _ 
          GetCurrentThreadId) 

    ' Run MessageBox 
    MsgBox "Smiling Message Box", vbYesNo, "Message Box Hooking" 
End Sub 

Private Function MsgBoxHookProc(ByVal lMsg As Long, _ 
           ByVal wParam As Long, _ 
           ByVal lParam As Long) As Long 

    If lMsg = HCBT_ACTIVATE Then 
     SetDlgItemText wParam, IDYES, "Yes :-)" 
     SetDlgItemText wParam, IDNO, "No :-(" 

     ' Release the Hook 
     UnhookWindowsHookEx hHook 
    End If 

    MsgBoxHookProc = False 
End Function 

Answer 6

我做

msgbox "TEXT HERE",3,"TITLE HERE" 
If Yes=true then 
(result) 

else 
msgbox "Closing..."