vb.net密码验证程序 vb输入密码

vb程序设计编写程序验证输入密码是否正确

先设计好界面vb.net密码验证程序，（如vb.net密码验证程序：用标签控件vb.net密码验证程序，2个文本框，）在1个要输密码文本框的属性名称中输入password,在要输入名称的文本框的属性名称中输入username.在设置字体 想要输入错误密码三次退出程序方法如下； 在密码的代码框中输入：unload.me chick=3. End sub

用VB语言编制一个帐号与密码的检验程序

Option Explicit

Const MaxLogTimes As Integer = 3

Private Sub cmdCancel_Click()

Dim intResult As Integer

'请求用户确认是否真的退出系统登录

intResult = MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" vbCrLf "是否真的退出？", vbYesNo, "登录验证")

If intResult = vbYes Then End '根据用户选择结束应用程序

End Sub

Private Sub cmdOK_Click()

Static intLogTimes As Integer '用于保存用户请求验证的次数

Dim intChecked As Integer, strName As String, strPassword As String

intLogTimes = intLogTimes + 1 '计算登录次数

If intLogTimes MaxLogTimes Then

'超过允许的登录次数，显示提示信息

MsgBox "你已经超过允许验证次数！" vbCr "应用程序将结束！", vbCritical, "登录验证"

End '结束应用程序

Else '进一步验证登录信息的合法性

strName = Trim(txtUserName.Text) '获得输入的用户名

strPassword = Trim(txtPassWord.Text) '获得输入的口令

'检验用户名和口令的合法性，并根据检验返回值执行相应的操作

if(strName ="123456")

if(strPassword="VB6") '口令正确

Unload Me '卸载登录窗体

MsgBox "登录成功，将启动系统程序！", vbInformation, "登录验证"

'通常在此放置显示系统主窗体的语句，例如

'frmMain.Show

else

MsgBox "口令错误，请重新输入！", vbCritical, "登录验证"

txtPassWord.Text = ""

txtPassWord.SetFocus

end if

else '用户不是系统用户

MsgBox "" strName "不是系统用户，请检查用户名输入是否正确！", vbCritical, "登录验证"

txtUserName.Text = ""

txtPassWord.Text = ""

txtUserName.SetFocus

End If

End If

End Sub

'这是你要的重试 我觉得很没有必要

Private Sub cmdReset_Click()

txtPassWord.Text = ""

txtPassWord.SetFocus

End Sub

说明：

1.账号密码一般是通过数据库调用的，这个程序只是用于娱乐或者测试

2.密码框输出显示请在VB的密码框属性设置里更该，设password为*即可

3.好好读读代码，你就明白代码怎么用了

VB程序编写账号和密码的验证程序

Private Sub Command1_Click()

If IsNumeric(Text1.Text) And Len(Text1.Text) = 6 And Text2.Text = "good" Then

 MsgBox "输入正确vb.net密码验证程序，验证通过", vbOKCancel, "验证通过"

Else

 If MsgBox("账号或密码错误", vbRetryCancel, "验证错误") = vbRetry Then

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

 Else

    End

 End If

End If

End Sub

Private Sub Form_Load()

Text1.PasswordChar = "*"

End Sub

vb.net密码验证程序的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb输入密码、vb.net密码验证程序的信息别忘了在本站进行查找喔。