Question

VB 密码文本框设计

已知初始密码为“1234567”，要求在文本框内输入密码后并按回车，如输入正确，则显示（标签label2)“欢迎光临”，文本框停止输入；如果输入密码与“1234567”不吻合，显示“密码不符，请再输入一遍！”，同时清空文本框中的内容；要求最多允许输入3次密码，如果输入3遍后密码仍不吻合，显示“非法用户，请退出程序”，同时文本框清空且不可用。

Answer 1

这个简单，先在窗体内设置一个text1和一个label1，在来一个command1，代码如下：
Private Sub Command1_Click()'单击按钮1If Text1.Text <> "1234567" Then
Text1.Text = ""'，如果文本不等于"1234567"那么
Text1.SetFocus'聚焦文本窗口
Command1.Enabled = False'按钮不能使用
Label1.Caption = Label1.Caption - 1'标签减1
Else'否侧
MsgBox "欢迎光临", 0 + 64, "安全提示"'显示"欢迎光临"
Label1.Caption = 3‘标签=3
Text1.Text = ""'清空文本
Text1.Enabled = False'文本不可用
Command1.Enabled = False'按钮不可用
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""'载入窗体，文本为空，按钮不可用，标签为3
Command1.Enabled = False
Label1.Caption = 3
End Sub

Private Sub Label1_Change()'标签发生变化时
Select Case Label1.Caption
Case 1 To 2'当标签等于1到2时
MsgBox "密码不符，请再输入一遍！", 0 + 48, "安全提示"
Case 0'当标签等于0时
MsgBox "非法用户，请退出程序"
Text1.Enabled = False
Label1.Enabled = False
Command1.Enabled = False
End Select
End Sub

Private Sub Text1_Change()
Command1.Enabled = True'当文本发生变化时，按键可用。
End Sub