Public Class LoginForm1 ' TODO: 插入代码,以使用提供的用户名和密码执行自定义的身份验证 ' (请参阅 https://go.microsoft.com/fwlink/?LinkId=35339)。 ' 随后自定义主体可附加到当前线程的主体,如下所示: ' My.User.CurrentPrincipal = CustomPrincipal ' 其中 CustomPrincipal 是用于执行身份验证的 IPrincipal 实现。 ' 随后,My.User 将返回 CustomPrincipal 对象中封装的标识信息 ' 如用户名、显示名等 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Me.Close() End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() End Sub End Class