应用程序 VBA/消息框

摘要

此代码块包含用于是、否或取消的消息框函数。

VBA 代码

Option Explicit
Sub TestYesNoCancel()
    'run to test message box
    
    Dim bDefault As Boolean
    
    If YesNoCancel(bDefault) = True Then
        If bDefault Then
            'do default stuff
            MsgBox "Using default"
        Else
            'do other stuff
            MsgBox "Using other"
        End If
    Else
           'do cancelled stuff
        MsgBox "User cancelled"
        Exit Sub
    End If
End Sub

Function YesNoCancel(bDefault As Boolean) As Boolean
    'Message box for yes, no, or cancel

    Dim Msg As String, Style As Long, Title As String
    Dim Reply As Integer

    'assignments
    Msg = "Do you want the default ?" & vbNewLine & vbNewLine & _
          "Select :" & vbNewLine & _
          "YES ;  for the default," & vbNewLine & _
          "NO ;   for some other," & vbNewLine & _
          "CANCEL ;  to quit."                              'message
    Style = vbYesNoCancel + vbQuestion + vbDefaultButton1   'buttons.
    Title = "Yes, No, Cancel layout..."                     'title.

    'show message box
    Reply = MsgBox(Msg, Style, Title)

    'resolve choice
    Select Case Reply
    Case vbYes
        bDefault = True
        YesNoCancel = True
    Case vbNo
        YesNoCancel = True
        Exit Function
    Case vbCancel
        Exit Function
    End Select

End Function