如果单击取消按钮，请保持表单打开 VB 2012

Question

我想知道我可以在下面第一个 if 语句的第二部分输入什么代码，以便在单击取消按钮时保持表单处于活动状态。

Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
    'Message prompt to ask if the user really want to exit
    MsgBox("Are you sure you want to exit?", MsgBoxStyle.OkCancel, "MDCS")

    If MsgBoxResult.Ok Then
        If Application.OpenForms().OfType(Of Find_Client).Any Or Application.OpenForms().OfType(Of Form_items).Any Then
            MsgBox("Close all opened windows before the main", MsgBoxStyle.OkOnly, "MDCS")
        Else
            ' Call sub that close the program
            Me.Close()
            Dim items As New Form_items, clients As New Find_Client
            items.Close()
            clients.Close()
            'Stop Stopwatch
            Timer1.Stop()
            Me.StopWatch.Stop()

            'Mark Stopwatch value
            intTimerValues = Val(Timer_Label.Text)
        End If
    Else
        ???
    End If
End Sub

Answer 1

您的代码不正确。

你显示一个消息框

'Message prompt to ask if the user really want to exit
MsgBox("Are you sure you want to exit?", MsgBoxStyle.OkCancel, "MDCS")

但你不测试它的返回值。

你实际上做的是测试一个常量的值，MsgBoxResult.Ok

If MsgBoxResult.Ok Then

MsgBoxResult.Ok is a member of an enumeration 计算结果为 1。所以基本上，你所拥有的是

If 1 Then

嗯，总是 计算结果为True，所以If 块总是运行。你永远不会到达Else 块。

通过实际测试MsgBox 调用的结果来修复代码：

Dim MsgBoxResult As result = MsgBox("Are you sure you want to exit?", _
                                    MsgBoxStyle.OkCancel, _
                                    "MDCS")
If result = MsgBoxResult.Ok Then
    ' ...
    'Close the form.
    Me.Close()
Else
    ' ...
    ' Don't write code to close the form and it won't be closed.
End If

Answer 2

通常情况下，当前活动的表单应该自动显示，但如果您将代码放在特定的按钮事件处理程序中，则不会在 Else 函数中放置任何代码。 好吧，在阅读了您在上面 cmets 中的回复后，我假设您将代码放入 Form_Closing 事件中，如果是这种情况，那么您应该放入 e.Cancel() 在代码的 Else 部分中。