我需要帮助在“登录表单"中添加锁定系统.我的下面的代码.谢谢. [英] I need help adding a lock out system in my Login Form. My Code Below. Thanks.

问题描述

公共类Form1

   暗淡尝试为整数


   私有Sub btnLogin_Click(ByVal发送者为System.Object，ByVal e为System.EventArgs)处理btnLogin.Click
       如果txtUsername.Text ="Kklgmh2016id"； txtPassword.Text ="Di-wifr246"然后
            MsgBox(您现在已登录"，MsgBoxStyle.Information，登录")
       其他
           如果txtUsername.Text ="和txtPassword.Text ="然后
                MsgBox(找不到用户名和/或密码！"，MsgBoxStyle.Critical，错误")
           其他
               如果txtUsername.Text ="然后
                    MsgBox(找不到用户名！"，MsgBoxStyle.Critical，错误")
               其他
                   如果txtPassword.Text ="然后
                        MsgBox(找不到密码！"，MsgBoxStyle.Critical，错误")
                   其他
                        MsgBox(无效的用户名和/或密码！"，MsgBoxStyle.Critical，错误")
                   如果结束
               如果结束
           如果结束
       如果结束



   结束子


   私有Sub btnExit_Click(ByVal发送者为System.Object，ByVal e为System.EventArgs)处理btnExit.Click
       结束

   结束子

结束类

Public Class Form1

    Dim attempts As Integer


    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        If txtUsername.Text = "Kklgmh2016id" And txtPassword.Text = "Di-wifr246" Then
            MsgBox("You Are Now Logged In", MsgBoxStyle.Information, "Login")
        Else
            If txtUsername.Text = "" And txtPassword.Text = "" Then
                MsgBox("No Username and/or Password Found!", MsgBoxStyle.Critical, "Error")
            Else
                If txtUsername.Text = "" Then
                    MsgBox("No Username Found!", MsgBoxStyle.Critical, "Error")
                Else
                    If txtPassword.Text = "" Then
                        MsgBox("No Password Found!", MsgBoxStyle.Critical, "Error")
                    Else
                        MsgBox("Invalid Username And/Or Password!", MsgBoxStyle.Critical, "Error")
                    End If
                End If
            End If
        End If



    End Sub


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End

    End Sub

End Class

推荐答案

也许在无效密码分支使用退出.

Maybe use Exit at the Invalid password branch.

类似

Else

MsgBox(无效的用户名和/或密码！"，MsgBoxStyle.Critical，错误") Application.Exit

MsgBox("Invalid Username And/Or Password!", MsgBoxStyle.Critical, "Error") Application.Exit

这篇关于我需要帮助在“登录表单"中添加锁定系统.我的下面的代码.谢谢.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！