Capturing the value of the button clicked on a msgbox

[brjames]

Hi guys

I need to find out which button has been clicked on a msgbox and then show the user via a text box on my form.

I have written a program demonstrating the various icon/button combinations for a msgbox. Everything works great. All i need to do now is find out which button on the msgbox the user pressed and display this info in a text box on the form.

Can anyone help please??

Ben

[BuggyProgrammer]

you can do ths:

Dim Response As String
 
Response = MsgBox("Press Yes or No", vbYesNo)
 
If Response = vbYes Then
    MsgBox "You pressed yes!"
ElseIf Response = vbNo Then
    MsgBox "You pressed No!"
End If

or a shorter version:

If MsgBox("Press Yes or No", vbYesNo) = vbYes Then 
MsgBox "you pressed yes!" Else MsgBox "you pressed no"
End If

[MartinLiss]

The MsgBox function actually returns an integer and not a string, but BuggyProgrammer's code should work. Here is another way to approach the problem:

Select Case MsgBox("Please click Yes, No or Cancel", _
                       vbYesNoCancel + vbInformation)
        Case vbYes
            MsgBox "You chose Yes"
        Case vbNo
            MsgBox "You chose No"
        Case Else ' Case vbCancel would also work here
            MsgBox "You chose Cancel"
    End Select

[brjames]

I need to repeat the same bit of code over and over for each of the buttons on each msgbox that appears. If you look at my code below you will see what I mean.

Is there any way of typing the code (in the replies above) just once and using it for all of the msgboxes?? Maybe by putting the code above into a module??

Thanks in advance guys and gals!!!

[MartinLiss]

Originally posted by brjames
...If you look at my code below you will see what I mean....

Where is the code?

[brjames]

Private Sub cmdShow_Click()
Dim answer As VbMsgBoxResult
 
Dim MsgBoxStyle     As VbMsgBoxStyle
 
    If optButton(0).Value Then
        MsgBoxStyle = vbOKOnly
    ElseIf optButton(1).Value Then
        MsgBoxStyle = vbOKCancel
    ElseIf optButton(2).Value Then
        MsgBoxStyle = vbYesNo
    ElseIf optButton(3).Value Then
        MsgBoxStyle = vbYesNoCancel
    ElseIf optButton(4).Value Then
        MsgBoxStyle = vbRetryCancel
    ElseIf optButton(5).Value Then
        MsgBoxStyle = vbAbortRetryIgnore
    End If
 
    If optIcon(0).Value = True Then
        MsgBoxStyle = MsgBoxStyle
    ElseIf optIcon(1).Value = True Then
        MsgBoxStyle = MsgBoxStyle + vbCritical
    ElseIf optIcon(2).Value = True Then
        MsgBoxStyle = MsgBoxStyle + vbExclamation
    ElseIf optIcon(3).Value = True Then
        MsgBoxStyle = MsgBoxStyle + vbCritical
    ElseIf optIcon(4).Value = True Then
        MsgBoxStyle = MsgBoxStyle + vbInformation
    ElseIf optIcon(5).Value = True Then
        MsgBoxStyle = MsgBoxStyle + vbInformation
    ElseIf optIcon(6).Value = True Then
        MsgBoxStyle = MsgBoxStyle + vbQuestion
    ElseIf optIcon(7).Value = True Then
        MsgBoxStyle = MsgBoxStyle + vbCritical
    ElseIf optIcon(8).Value = True Then
        MsgBoxStyle = MsgBoxStyle + vbExclamation
    End If
 
                
    MsgBox txtMessage.Text, MsgBoxStyle, txtTitle.Text
    
txtResult.Text = answer
End Sub

[MartinLiss]

Do you mean something like this?

Select Case True
        Case optButton(0).Value
            MsgBoxStyle = vbOKOnly
            txtResult.Text = "OK only"
        Case optButton(1).Value
            MsgBoxStyle = vbOKCancel
            txtResult.Text = "Cancel"
        Case optButton(2).Value
            MsgBoxStyle = vbYesNo
            txtResult.Text = "Yes and No"
        Case optButton(3).Value
            MsgBoxStyle = vbYesNoCancel
            txtResult.Text = "Yes, No and Cancel"
        Case optButton(4).Value
            MsgBoxStyle = vbRetryCancel
            txtResult.Text = "Retry and cancel"
        Case optButton(5).Value
            MsgBoxStyle = vbAbortRetryIgnore
            txtResult.Text = "Abort, Retry and Ignore"
    End Select
 
    Select Case True
        Case optIcon(0).Value
            MsgBoxStyle = MsgBoxStyle
        Case optIcon(1).Value
            MsgBoxStyle = MsgBoxStyle + vbCritical
            txtResult.Text = txtResult.Text & "+ Critical"
        Case optIcon(2).Value
            MsgBoxStyle = MsgBoxStyle + vbExclamation
            txtResult.Text = txtResult.Text & "+ Exclamation"
        Case optIcon(3).Value
            MsgBoxStyle = MsgBoxStyle + vbCritical
            txtResult.Text = txtResult.Text & "+ Critical"
        Case optIcon(4).Value
            MsgBoxStyle = MsgBoxStyle + vbInformation
            txtResult.Text = txtResult.Text & "+ Information"
        Case optIcon(5).Value
            MsgBoxStyle = MsgBoxStyle + vbInformation
            txtResult.Text = txtResult.Text & "+ Information"
        Case optIcon(6).Value
            MsgBoxStyle = MsgBoxStyle + vbQuestion
            txtResult.Text = txtResult.Text & "+ Question"
        Case optIcon(7).Value
            MsgBoxStyle = MsgBoxStyle + vbCritical
            txtResult.Text = txtResult.Text & "+ Critical"
        Case optIcon(8).Value
            MsgBoxStyle = MsgBoxStyle + vbExclamation
            txtResult.Text = txtResult.Text & "+ Exclamation"
    End If
 
                
    MsgBox txtMessage.Text, MsgBoxStyle, txtTitle.Text

BTW, are you sure you want the optIcon values set up the way you have them? For example both 4 and 5 are vbInformation.