Question on message box

[chioman]

Hi everybody

I would like to ask everybody a question.........the code belows shown as:


Dim dlgRes As DialogResult
dlgRes = MessageBox.Show( _
"Are you sure you want to overwrite the entries", _
"Mp500", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Question)

If dlgRes = DialogResult.No Then
Application.Exit()

the code above shown that if the user click "No", the whole application is exit.........but i do not want this to happen...........i just want:if the user click "no", it will only exit the message box and does nothing.........may i know how to do this ?...........thank u very much............

[mar_zim]

remove the application.exit()

[GrimmReaper]

Well, I would just include a test then for the Yes Value

Dim dlgRes As DialogResult
dlgRes = MessageBox.Show( _
"Are you sure you want to overwrite the entries", _
"Mp500", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Question)
 
If dlgRes = DialogResult.Yes Then
Do what you want and don't include else for No
End If

Or
Exit Sub ¿

Dim dlgRes As DialogResult
dlgRes = MessageBox.Show( _
"Are you sure you want to overwrite the entries", _
"Mp500", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Question)
 
If dlgRes = DialogResult.No Then
Exit Sub
End If