UC知道VB 密码输入几位数问题?
来源：百度知道 编辑：UC知道 时间：2024/06/02 19:49:25
我是用VB制作了一个小挂机锁.
但是输入密码能不能限制最少输入3位数,或3位以上.
如何做到,请VB高手帮帮忙.谢谢了
Private Sub Command1_Click()
If Text1.Text = Text2.Text Then
Form2.Show
Else
MsgBox "两次输入的密码不一样请重新输入！", vbOKOnly, "提示:"
Text1.Text = ""
Text2.Text = ""
End If
End Sub
都不行.我不要弹出什么对话框.这是没输入到3位数就执行不到Form2.
但是输入密码能不能限制最少输入3位数,或3位以上.
如何做到,请VB高手帮帮忙.谢谢了
Private Sub Command1_Click()
If Text1.Text = Text2.Text Then
Form2.Show
Else
MsgBox "两次输入的密码不一样请重新输入！", vbOKOnly, "提示:"
Text1.Text = ""
Text2.Text = ""
End If
End Sub
都不行.我不要弹出什么对话框.这是没输入到3位数就执行不到Form2.
按你的说明，你的TETX1应该是一个输入密码 TEXT2是确定密码吧。。
代码如下：
Private Sub Command1_Click()
If Len(Text1.Text) < 3 Then
Text1.SetFocus '如果Text1中的密码少于三位。光标自动移动到TEXT1中
ElseIf Text2.Text = Text1.Text Then
Form2.Show
Unload Me
Else
MsgBox "两次输入的密码不一样请重新输入！", vbOKOnly, "提示:"
Text2.Text = ""
Text1.Text = ""
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = "" '将两个Text置空
Text1.PasswordChar = "*"
Text2.PasswordChar = "*" '将两个Text的内容都以*显示
End Sub
我好做过一个挂机锁。。。差不多一样吧，，
Private Sub Command1_Click()
If text1.Text = Text2.Text And Len(text1.Text) >= 3 Then
Form2.Show
Else
MsgBox "两次输入的密码不一样或密码太短，请重新输入！", vbOKOnly, "提示:"
text1.Text = ""
Text2.Text = ""
End If
End Sub