Three way operation, Save on close msg

[daniel aristidou]

Hey guys any one know how to make a msg that is vbyesnocancel And do a different command depending on which the user pressed
For example when closing the window ..... have the option of sve and close,close or cancel.

You don't use an if statement do you?

Daniel(~_~)

[debasisdas]

Yes you use if for this
try like this

rep=msgbox("Do you want to save",vbyesnocancel + vbquestion,"Save Data...!")
if rep=vbyes then
'save the data
elseif rep=vbno then
'don't save the data
else
'do nothing
end if
 

[lotus18]

Yes you use if for this
try like this

rep=msgbox("Do you want to save",vbyesnocancel + vbquestion,"Save Data...!")
if rep=vbyes then
'save the data
elseif rep=vbno then
'don't save the data
else
'do nothing
end if
 

Does this vbYesNoCancel a constant value of message box property? Or am I wrong? All I know is vbRetryCancel . For vbYesNoCancel, we can combine vbYesNo + vbCancel. : )

[debasisdas]

Does this vbYesNoCancel a constant value of message box property? Or am I wrong? All I know is vbRetryCancel . For vbYesNoCancel, we can combine vbYesNo + vbCancel. : )

i don't remember exactly . I don't have vb 6.0 in my office.

try to use vbYesNo instead.

[daniel aristidou]

i don't remember exactly . I don't have vb 6.0 in my office.

try to use vbYesNo instead.

Guys i using vb08 inwhich vbyesnocancel does exist.
your solution worked.
Thanks
Daniel(~_~)

[debasisdas]

Guys i using vb08 inwhich vbyesnocancel does exist.
your solution worked.
Thanks
Daniel(~_~)

ok, you are most welcome .

[Killer42]

Just one thing. For multiple choices based on a single value like this, I'd recommend using Select Case rather than If.

[seal6039]

The YesNoCancelMsgBox function shows how to handle vbYes, vbNo, vbCancel and clicking the top right close button. The YesNoCancelMsgBox function below it shows how to call it and use the result as the message string in another message box. The result can also be applied to a string variable in the same way with one line of code instead of having paste all of the code repeatedly. (Integers are better to return but I instead used strings to simplify.)

Public Function YesNoCancelMsgBox(Message As String, Title As String) As String
    Dim Result As Integer
    Result = MsgBox(Message, vbQuestion + vbYesNoCancel, Title)
 
    Select Case Result
        Case 7
            YesNoCancelMsgBox = "No"
        Case 6
            YesNoCancelMsgBox = "Yes"
        Case 2
            YesNoCancelMsgBox = "Cancel"
        Case Else
            YesNoCancelMsgBox = "Close Button"
    End Select
End Function
Private Sub CallYesNoCancelMsgBox()
    MsgBox YesNoCancelMsgBox("Choose Yes, No, Cancel or the top right Close button.", "Message Box Test..."), vbExclamation + vbOKOnly, "Message Box Test Results"
End Sub

[Killer42]

Thanks for that, seal6039. Handy stuff.

I would make a couple of minor suggestions, though.

• In VB6, it's generally better to use Long rather than Integer, for performance reasons. (Of course performance is unlikely to be an issue in this case, since you are waiting on the user anyway.)
• I believe it makes for more easily readable code if you use the built-in constants rather than literal values. For example, vbYes rather than 6, and so on.

[blad3runn69]

thanks seal6039 for the nicely crafted code.