如何在vb的closing事件中加入判断，当选择否时不退出窗体

[lly20000]

如何在vb的closing事件中加入判断，当选择否时不退出窗体

[jsfeiyu]

If MsgBox("是否确定要退出？", MsgBoxStyle.OKCancel, "提示！")=MsgBoxResult.Cancel Then
e.Cancel = True
Else
Application.Exit()
End If

[saucer]

Protected Overrides Sub OnClosing (ByVal e As CancelEventArgs)

Dim Buttons As MessageBoxButtons = MessageBoxButtons.YesNo
Dim Result As DialogResult
Result = MessageBox.Show(Me, "sure to close?", "hello", Buttons)

If Result = DialogResult.No Then
e.Cancel = True
End If
End Sub

[benlee]

e.Cancel = True

[szch]

在closing事件中加入
if msgbox("退出否",MessageBoxButtons.YesNo)=DialogResult.No Then
e.Cancel = True '终止关闭窗体
End If