Public Class LoginForm1
' TODO: 插入代码,以使用提供的用户名和密码执行自定义的身份验证
' (请参见 http://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
If UsernameTextBox.Text = "jhhj" And PasswordTextBox.Text = "jhhj" Then
Form1.Show()
'释放登陆窗体的资源
Finalize()
Else
Me.Close()
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
' TODO: 插入代码,以使用提供的用户名和密码执行自定义的身份验证
' (请参见 http://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
If UsernameTextBox.Text = "jhhj" And PasswordTextBox.Text = "jhhj" Then
Form1.Show()
'释放登陆窗体的资源
Finalize()
Else
Me.Close()
End If
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
不过https://blog.csdn.net/sufei1013/article/details/2472865的更好,可以修改用户名和密码,也是我最终会做到的