frmregister.vb

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

Public Class frmRegister

    Private Sub frmRegister_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        SetTitle("Register Form")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubim.Click


        For i As Integer = 1 To 4
            If (Pop.liu(i) IsNot Nothing AndAlso Pop.liu(i).UseId = txtUserId.Text) Then
                MsgBox("wrong")
                Exit For
            Else
                Pop.liu(i) = New Personps(txtUserId.Text, txtPass.Text, txtName.Text, txtNickName.Text, RadioButton1.Checked, DateTimePicker1.Text, txtEmail.Text)
                MsgBox(Pop.liu(i).Name)
            End If
            Exit For

            'If (Pop.liu(i) IsNot Nothing AndAlso Pop.liu(i).UseId = txtUserId.Text) Then
            '    MsgBox("wrong")
            '    Exit For
            'Else
            'Pop.liu(i) = New Personps(txtUserId.Text, txtPass.Text, txtName.Text, txtNickName.Text, RadioButton1.Checked, DateTimePicker1.Text, txtEmail.Text)
            'MsgBox(Pop.liu(i).Name)
            'Exit For
            'End If
        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtUserId.Text = ""
        txtPass.Text = ""
        txtName.Text = ""
        txtNickName.Text = ""
        txtEmail.Text = ""
        txtUserId.Focus()
    End Sub

End Class