vb.net - 用户可以在没有权限的情况下登录

Question

当用户按 (X) 右上角用户可以在未经许可的情况下登录

Private Sub LoginForm_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
    Dim LoginForm As Boolean
    If LoginForm = True Then
        Application.[Restart]()
    End If
    If login Is False Then
        Application.[Exit]()
    End If
End Sub

Protected Overrides Sub OnClosed(ByVal e As EventArgs)
   Application.Exit()
End Sub

标签： vb.netms-access-2010

Answer 1

你可以试试：

Private Sub LoginForm_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles LoginForm.FormClosing
    If e.CloseReason = CloseReason.UserClosing Then
          e.Cancel = True
          Application.[Exit]()
    End If
End Sub