20 lines
707 B
VB.net
20 lines
707 B
VB.net
|
Public Class LoginForm1
|
|||
|
|
|
|||
|
|
' TODO: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룬<EFBFBD><EBA3AC>ʹ<EFBFBD><CAB9><EFBFBD>ṩ<EFBFBD><E1B9A9><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֤
|
|||
|
|
' (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> https://go.microsoft.com/fwlink/?LinkId=35339)<29><>
|
|||
|
|
' <20><><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɸ<EFBFBD><C9B8>ӵ<EFBFBD><D3B5><EFBFBD>ǰ<EFBFBD>̵߳<DFB3><CCB5><EFBFBD><EFBFBD>壬<EFBFBD><E5A3AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ:
|
|||
|
|
' My.User.CurrentPrincipal = CustomPrincipal
|
|||
|
|
' <20><><EFBFBD><EFBFBD> CustomPrincipal <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֤<EFBFBD><D6A4> IPrincipal ʵ<>֡<EFBFBD>
|
|||
|
|
' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>My.User <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CustomPrincipal <20><><EFBFBD><EFBFBD><EFBFBD>з<EFBFBD>װ<EFBFBD>ı<EFBFBD>ʶ<EFBFBD><CAB6>Ϣ
|
|||
|
|
' <20><><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
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
|