frmlogin.vb

来自「聊天工具,一个可以在任何系统下运作的聊天工具」· VB 代码 · 共 31 行

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