求vb程序思路
建立一个密码输入类,以文本框控件作为依据,能够自动进行密码的保密输入,当出入错误后,在文本框显示输入。这样子的一个程序,虚心求教vb大大教我一个简单点思路,如何设计,需要...
建立一个密码输入类,以文本框控件作为依据,能够自动进行密码的保密输入,当出入错误后,在文本框显示输入。这样子的一个程序,虚心求教vb大大教我一个简单点思路,如何设计,需要说明一点就是我是vb小菜鸟,太深了我肯定看不懂=。= 所以请大大告诉一个简单明了的思路,要用vb写的哦!
展开
1个回答
展开全部
Private Sub Command1_Click()
Dim i, j, k
If Text2 <> "Gong" Then
i = MsgBox("密码错误", 5 + 48, "警告")
If i = 2 Then
End
Else
Text2 = ""
Text2.SetFocus
End If
ElseIf Text2 = "Gong" And Text1 <> "" Then
m = MsgBox("密码正确,欢迎您使用计算器", 1)
If m = 1 Then
j = Shell("calc.exe", 1)
Else
End
End If
Else
k = MsgBox("账号不能为空", 1 + 64, "信息")
If k <> 1 Then
End
Else
Text1 = ""
Text1.SetFocus
End If
End If
End Sub
Private Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 4
Text2.PasswordChar = "*"
End Sub
Dim i, j, k
If Text2 <> "Gong" Then
i = MsgBox("密码错误", 5 + 48, "警告")
If i = 2 Then
End
Else
Text2 = ""
Text2.SetFocus
End If
ElseIf Text2 = "Gong" And Text1 <> "" Then
m = MsgBox("密码正确,欢迎您使用计算器", 1)
If m = 1 Then
j = Shell("calc.exe", 1)
Else
End
End If
Else
k = MsgBox("账号不能为空", 1 + 64, "信息")
If k <> 1 Then
End
Else
Text1 = ""
Text1.SetFocus
End If
End If
End Sub
Private Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 4
Text2.PasswordChar = "*"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询