Using the Select Case Statement to check the MsgBox button clicked : MsgBox « Language Basics « VBA / Excel / Access / Word






Using the Select Case Statement to check the MsgBox button clicked

 
Sub TestButtons()
       Dim question As String
       Dim bts As Integer
       Dim myTitle As String
       Dim myButton As Integer

       question = "Do you want to preview the report now?"
       bts = vbYesNoCancel + vbQuestion + vbDefaultButton1
       myTitle = "Report"
       myButton = MsgBox(prompt:=question, Buttons:=bts, Title:=myTitle)

       Select Case myButton
          Case 6
              MsgBox "You can review the report now."
          Case 7
              MsgBox "You can review the report later."
          Case Else
              MsgBox "You pressed Cancel."
       End Select
End Sub

 








Related examples in the same category

1.Using the MsgBox Function: MsgBox (prompt [, buttons] [, title], [, helpfile, context])
2.A single statement splits over four lines.
3.Buttons and Icons in the MsgBox Function
4.The MsgBox buttons argument's settings
5.MsgBox "Welcome to VBA", vbYesNoCancel, "VBA Message Box"
6.Add the Information icon
7.Use Chr() function to format MsgBox
8.Use & to link messages
9.Pass single parameter to MsgBox
10.Keep the message box visible while the user works with other open applications
11.Set default button for MsgBox
12.Using the MsgBox Function with Arguments
13.MsgBox with three parameters
14.Call MsgBox function by using its parameter name
15.MsgBox with parameter Name: title:=myTitle, prompt:=question, buttons:=myButtons, helpfile:= "HelpX.hlp",context:=55
16.Returning Values from the MsgBox Function
17.Save the return value from MsgBox to a variable
18.Each of the available buttons will produce an integer result.
19.Check MsgBox result
20.determines which button was pressed.
21.MsgBox's third parameter is the message box's title. Its fourth and fifth parameters are the Help file and context ID
22.The message box displays Yes, No, and Cancel buttons
23.After you have placed the return value into a variable, you can easily introduce logic into your program to respond to the user's selection
24.Ok To Overwrite
25.Getting a response from a message box with Select Case
26.use the MsgBox function result without using a variable
27.Specifying a Title for a Message Box
28.Adding a Help Button to a Message Box: use the vbMsgBoxHelpButton constant
29.Specifying a Help File for a Message Box