如何更改消息框中按鈕的名稱？

Question

我正在尋找編寫一個宏，它可以在打開電子表格時執行，並顯示一個帶有三個按鈕的消息框，並帶有自定義文本。當用戶點擊其中一個按鈕時，它將根據按下哪個按鈕來執行另一個宏。

我已經發現如何在打開時運行宏以及如何對msg框進行編碼，但不能使用自定義文本。

這可能嗎？

Answer 1

很多年前，我從一個論壇複製了這段代碼（，先生，我認爲他是Excel） - 您可能需要使用適合您的VBA和Windows的聲明。

我確實記得在過去使用這個代碼的過程。我很尷尬地說這是一個公開的貨物崇拜編程案例，我沒有努力去了解代碼中使用的鉤子。 Siddharth Rout的如果您希望使用這些程序，建議值得一聽。無論如何，內疚得到了我的更好，我轉而使用自定義Userforms，因爲Jeeped暗示。

Option Explicit 

Private Const MB_YESNOCANCEL = &H3& 
Private Const MB_YESNO = &H4& 
Private Const MB_RETRYCANCEL = &H5& 
Private Const MB_OKCANCEL = &H1& 
Private Const MB_OK = &H0& 
Private Const MB_ABORTRETRYIGNORE = &H2& 
Private Const MB_ICONEXCLAMATION = &H30& 
Private Const MB_ICONQUESTION = &H20& 
Private Const MB_ICONASTERISK = &H40& 
Private Const MB_ICONINFORMATION = MB_ICONASTERISK 
Private Const IDOK = 1 
Private Const IDCANCEL = 2 
Private Const IDABORT = 3 
Private Const IDRETRY = 4 
Private Const IDIGNORE = 5 
Private Const IDYES = 6 
Private Const IDNO = 7 
Private Const IDPROMPT = &HFFFF& 
Private Const WH_CBT = 5 
Private Const GWL_HINSTANCE = (-6) 
Private Const HCBT_ACTIVATE = 5 

Private Type MSGBOX_HOOK_PARAMS 
    hwndOwner As Long 
    hHook As Long 
End Type 

Private MSGHOOK As MSGBOX_HOOK_PARAMS 

Private Declare Function GetCurrentThreadId Lib "kernel32"() As Long 
Public Declare Function GetDesktopWindow Lib "user32"() As Long 
Private Declare Function GetWindowLong Lib "user32" Alias _ 
    "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function MessageBox Lib "user32" Alias _ 
    "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, _ 
    ByVal lpCaption As String, ByVal wType As Long) 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 SetWindowText Lib "user32" Alias _ 
    "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long 
Private Declare Function UnhookWindowsHookEx Lib "user32" _ 
    (ByVal hHook As Long) As Long 

Dim mbFlags As VbMsgBoxStyle 
Dim mbFlags2 As VbMsgBoxStyle 
Dim mTitle As String 
Dim mPrompt As String 
Dim But1 As String 
Dim But2 As String 
Dim But3 As String 

Public Function MessageBoxH(hwndThreadOwner As Long, _ 
    hwndOwner As Long, mbFlags As VbMsgBoxStyle) As Long 

    Dim hInstance As Long 
    Dim hThreadId As Long 

    hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) 
    hThreadId = GetCurrentThreadId() 
    With MSGHOOK 
     .hwndOwner = hwndOwner 
     .hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, hInstance, hThreadId) 
    End With 
    MessageBoxH = MessageBox(hwndOwner, Space$(120), Space$(120), mbFlags) 
End Function 

Public Function MsgBoxHookProc(ByVal uMsg As Long, _ 
    ByVal wParam As Long, ByVal lParam As Long) As Long 

    If uMsg = HCBT_ACTIVATE Then 
     SetWindowText wParam, mTitle 
     SetDlgItemText wParam, IDPROMPT, mPrompt 
     Select Case mbFlags 
      Case vbAbortRetryIgnore 
       SetDlgItemText wParam, IDABORT, But1 
       SetDlgItemText wParam, IDRETRY, But2 
       SetDlgItemText wParam, IDIGNORE, But3 
      Case vbYesNoCancel 
       SetDlgItemText wParam, IDYES, But1 
       SetDlgItemText wParam, IDNO, But2 
       SetDlgItemText wParam, IDCANCEL, But3 
      Case vbOKOnly 
       SetDlgItemText wParam, IDOK, But1 
      Case vbRetryCancel 
       SetDlgItemText wParam, IDRETRY, But1 
       SetDlgItemText wParam, IDCANCEL, But2 
      Case vbYesNo 
       SetDlgItemText wParam, IDYES, But1 
       SetDlgItemText wParam, IDNO, But2 
      Case vbOKCancel 
       SetDlgItemText wParam, IDOK, But1 
       SetDlgItemText wParam, IDCANCEL, But2 
     End Select 
     UnhookWindowsHookEx MSGHOOK.hHook 
    End If 

    MsgBoxHookProc = False 

End Function 

Public Function BBmsgbox(mhwnd As Long, _ 
    mMsgbox As VbMsgBoxStyle, Title As String, _ 
    Prompt As String, Optional mMsgIcon As VbMsgBoxStyle, _ 
    Optional ButA As String, Optional ButB As String, _ 
    Optional ButC As String) As String 

    Dim CustomText As Long 

    mbFlags = mMsgbox 
    mbFlags2 = mMsgIcon 
    mTitle = Title 
    mPrompt = Prompt 
    But1 = ButA 
    But2 = ButB 
    But3 = ButC 
    CustomText = MessageBoxH(mhwnd, GetDesktopWindow(), mbFlags Or mbFlags2) 

    Select Case CustomText 
     Case IDABORT: BBmsgbox = But1 
     Case IDRETRY: BBmsgbox = But2 
     Case IDIGNORE: BBmsgbox = But3 
     Case IDYES: BBmsgbox = But1 
     Case IDNO: BBmsgbox = But2 
     Case IDCANCEL: BBmsgbox = But3 
     Case IDOK: BBmsgbox = But1 
    End Select 
End Function 

Sub TestYNC() 
    Const MY_YES As String = "Aye" 
    Const MY_NO As String = "Nay" 
    Dim DialogResult As String 

    DialogResult = BBmsgbox(1, vbYesNo, "[Title here]", "[Prompt here]", vbInformation, MY_YES, MY_NO) 

    Select Case DialogResult 
     Case MY_YES: MsgBox MY_YES & " = vbYes" 
     Case MY_NO: MsgBox MY_NO & " = vbNo" 
    End Select 
End Sub