📄 frmlogin.vb
字号:
Public Class frmLogin
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetTitle("Login Form")
'Dim dateob As Date = (#1/4/1985#)
'MsgBox(dateob)
Pop.liu(0) = New Personps("0001", "123", "kk", "454", "1212", New Date(1985, 10, 12), "hjh")
End Sub
Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegister.Click
Dim frm As frmRegister
frm = New frmRegister()
frm.ShowDialog()
End Sub
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
For i As Integer = 0 To 4
If Pop.liu(i).UseId = (txtUesId.Text) And Pop.liu(i).Pass = (txtPass.Text) Then
Dim frm As frmSail
frm = New frmSail
frm.ShowDialog()
Exit For
Else
MsgBox("pass wrong")
End If
Next
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -