点击登出按钮时出现两次登出消息框

Question

所以我想在关闭应用程序或注销应用程序之前执行确认，通过单击注销按钮或只需单击关闭应用程序。如果我直接关闭应用程序，那么消息框只出现一次。但是，当我使用注销按钮时，消息框出现两次。

所以编码基本上是这样的:

Private Sub btnLogOut_Click(sender As Object, e As EventArgs) Handles btnLogOut.Click
    If logOut() Then
        Me.Dispose()
        frmLogIn.Show()
    End If
End Sub
Private Sub frmHome_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    If logOut() Then
        Me.Dispose()
        frmLogIn.Show()
    Else
        e.Cancel = True
    End If
End Sub
Public Function logOut() As Boolean
    Dim respond = MessageBox.Show("Are you sure you want to log out?", "Log Out", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If respond = DialogResult.Yes Then
        blnResult = True
    Else
        blnResult = False
    End If
    logOut = blnResult
End Function

有人能帮忙吗?

Answer 1

在登出按钮事件中单击

If logOut() Then //first line
    Me.Dispose()//second line
    frmLogIn.Show()//third line

End If//第四行

在你的第二行，即Me。处置，你处置表格，换句话说，你关闭它。你的form_close事件会被触发因为你处理了你的表单。这就是为什么消息框会弹出两次