Fatal编程技术网
  • vb.net/
  • Vb.net Net登录框测试

Vb.net Net登录框测试

vb.net

Vb.net Net登录框测试,vb.net,Vb.net,我正在学习VB，并制作了一个“登录”框。我在谷歌上搜索了一些零碎的东西，还翻阅了我的课本。 我只是想让你们看看，告诉我这是不是好代码 我已经测试过了，它能工作。。所以我知道它看起来是“专业的”还是狡猾的 Public Class mainLogin Private Sub mainLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' sele

我正在学习VB，并制作了一个“登录”框。我在谷歌上搜索了一些零碎的东西，还翻阅了我的课本。 我只是想让你们看看，告诉我这是不是好代码

我已经测试过了，它能工作。。所以我知道它看起来是“专业的”还是狡猾的

Public Class mainLogin
    Private Sub mainLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' selects the username box when form loads
        txtUsername.Select()
    End Sub

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        If txtUsername.Text = "" Then
            MessageBox.Show("Username field is empty.")
            txtUsername.Select()
            Exit Sub
        End If

        If txtPassword.Text = "" Then
            MessageBox.Show("Password field is empty.")
            txtPassword.Select()
            Exit Sub
        End If

        If txtPassword.Text.Length < 8 Then
            MessageBox.Show("Password length must be more then 8 characters.")
            txtPassword.Clear()
            Exit Sub
        End If

        If txtUsername.Text = "PavleS" Then
            If txtPassword.Text = "Password11" Then
                MessageBox.Show("Success!")

                ' Do something fancy here..
            Else
                MessageBox.Show("Bad Password!")
            End If
        Else
            MessageBox.Show("Bad Username!")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' clears username and password fields
        txtPassword.Text = ""
        txtUsername.Text = ""
    End Sub

    Private Sub txtPassword_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPassword.KeyDown
        If e.KeyCode = Keys.Enter Then
            ' If Enter on the keyboard is pressed it will preform 
            ' the same action as clicking the login button
            btnLogin.PerformClick()
        End If
    End Sub
End Class

Public类mainLogin
Private Sub main login_Load（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load
'在加载表单时选择用户名框
txtUsername.Select（）
端接头
私有子btnLogin_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnLogin。单击
如果txtUsername.Text=”“，则
MessageBox.Show（“用户名字段为空”）
txtUsername.Select（）
出口接头
如果结束
如果txtPassword.Text=”“，则
Show（“密码字段为空”）
txtPassword.Select（）
出口接头
如果结束
如果txtPassword.Text.Length<8，则
MessageBox.Show（“密码长度必须超过8个字符。”）
txtPassword.Clear（）
出口接头
如果结束
如果txtUsername.Text=“PavleS”，则
如果txtPassword.Text=“Password11”，则
MessageBox.Show（“成功！”）
“在这儿做点花哨的事吧。。
其他的
MessageBox.Show（“错误密码！”）
如果结束
其他的
MessageBox.Show（“坏用户名！”）
如果结束
端接头
私有子按钮1\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。单击
'清除用户名和密码字段
txtPassword.Text=“”
txtUsername.Text=“”
端接头
私有子txtPassword_KeyDown（ByVal发送方作为System.Object，ByVal e作为System.Windows.Forms.KeyEventArgs）处理txtPassword.KeyDown
如果e.KeyCode=Keys，则输入
'如果按键盘上的Enter键，它将执行
'与单击“登录”按钮的操作相同
btnLogin.PerformClick（）
如果结束
端接头
末级
要重写您尝试执行的操作：
1.使用String.IsNullOrEmpty测试文本框是否为空
2.使用Focus（）而不是Select（）
3.避免从另一个事件调用事件。如果两个事件要执行相同的操作，请移动私有方法中的所有逻辑，并从两个事件调用该方法。（请参考txtPassword.KeyDown（）中的代码）

Private Sub main login_显示（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理MyBase。显示
'在加载表单时选择用户名框
txtUsername.Focus（）
端接头
私有子btnLogin_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnLogin。单击
如果String.IsNullOrEmpty（txtUsername.Text），则
MessageBox.Show（“用户名字段为空”）
txtUsername.Focus（）
出口接头
如果结束
如果String.IsNullOrEmpty（txtPassword.Text），则
Show（“密码字段为空”）
txtPassword.Focus（）
出口接头
否则，如果txtPassword.Text.Length<8，则
MessageBox.Show（“密码长度必须超过8个字符。”）
txtPassword.Clear（）
出口接头
如果结束
如果txtUsername.Text=“PavleS”，则
如果txtPassword.Text=“Password11”，则
MessageBox.Show（“成功！”）
'
“在这儿做点花哨的事吧。。
'
其他的
MessageBox.Show（“错误密码！”）
如果结束
其他的
MessageBox.Show（“坏用户名！”）
如果结束
端接头
私有子按钮1\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。单击
'清除用户名和密码字段
txtPassword.Clear（）
txtUsername.Clear（）
端接头
Private Sub txtPassword_KeyDown（ByVal sender作为System.Object，ByVal e作为System.Windows.Forms.KeyEventArgs）_
处理txtPassword.KeyDown
如果e.KeyCode=Keys，则输入
'
'如果按键盘上的Enter键，它将执行
'与单击“登录”按钮的操作相同
'
PerformClick（）
如果结束
端接头
专用子性能单击（）
“”在此处执行您的逻辑
端接头
要重写您尝试执行的操作：
1.使用String.IsNullOrEmpty测试文本框是否为空
2.使用Focus（）而不是Select（）
3.避免从另一个事件调用事件。如果两个事件要执行相同的操作，请移动私有方法中的所有逻辑，并从两个事件调用该方法。（请参考txtPassword.KeyDown（）中的代码）

Private Sub main login_显示（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理MyBase。显示
'在加载表单时选择用户名框
txtUsername.Focus（）
端接头
私有子btnLogin_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnLogin。单击
如果String.IsNullOrEmpty（txtUsername.Text），则
MessageBox.Show（“用户名字段为空”）
txtUsername.Focus（）
出口接头
如果结束
如果String.IsNullOrEmpty（txtPassword.Text），则
Show（“密码字段为空”）
txtPassword.Focus（）
出口接头
否则，如果txtPassword.Text.Length<8，则
MessageBox.Show（“密码长度必须超过8个字符。”）
txtPassword.Clear（）
出口接头
如果结束
如果txtUsername.Text=“PavleS”，则
如果txtPassword.Text=“Password11”，则
MessageBox.Show（“成功！”）
'
“在这儿做点花哨的事吧。。
'
其他的
MessageBox.Show（“错误密码！”）
如果结束
其他的
MessageBox.Show（“坏用户名！”）
如果结束
端接头
私有子按钮1\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。单击
'清除用户名和密码字段
txtPassword.Clear（）
txtUsername.Clear（）
端接头
专用子TXT密码

Private Sub mainLogin_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs)   Handles MyBase.Shown

    ' selects the username box when form loads
    txtUsername.Focus()

End Sub


Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click


    If String.IsNullOrEmpty(txtUsername.Text) Then
        MessageBox.Show("Username field is empty.")
        txtUsername.Focus()
        Exit Sub
    End If

    If String.IsNullOrEmpty(txtPassword.Text) Then
        MessageBox.Show("Password field is empty.")
        txtPassword.Focus()
        Exit Sub

    Else If txtPassword.Text.Length < 8 Then
        MessageBox.Show("Password length must be more then 8 characters.")
        txtPassword.Clear()
        Exit Sub
    End If


    If txtUsername.Text = "PavleS" Then

        If txtPassword.Text = "Password11" Then
            MessageBox.Show("Success!")

            '
            ' Do something fancy here..
            '
        Else
            MessageBox.Show("Bad Password!")
        End If

    Else
        MessageBox.Show("Bad Username!")
    End If

End Sub

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

    ' clears username and password fields
    txtPassword.Clear()
    txtUsername.Clear()

End Sub


Private Sub txtPassword_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
    Handles txtPassword.KeyDown

    If e.KeyCode = Keys.Enter Then

        '
        ' If Enter on the keyboard is pressed it will preform 
        ' the same action as clicking the login button
        '
        PerformClick()

    End If

End Sub

  Private Sub PerformClick()
        '' Perform your logic here
  End Sub



Dictionary(Of String, String)