Question

vb编程题

用文本框检查口令输入,在窗体上建立一个文本框 ,一个图片框和3个命令按扭,把3个命令按扭的标题分别设置为"开始","检查口令",和"结束".程序运行后,单击第一个命令按扭,清除文本框中的信息,并把光标移到文本框中输入口令,然后单击第二个命令按扭,检查输入的口令是否正确. 如果正确,则在图片框中显示一个图形,否则显示一个信息框,要求重新输入,此时将调用第一个命令按扭的click事件过程,再一次在文本框中输入口令,知道输入正确的口令为止,如果单击"结束"按扭,则结束程序.

谢谢

Answer 1

Private Sub Command1_Click()
Text1.Text = ""
Text1.SetFocus

End Sub

Private Sub Command2_Click()
If Text1.Text = "123456" Then
Picture1.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\样品.jpg")
Else
x = MsgBox("口令不正确,是否重新输入？", 4, "系统提示：")
End If

If x = 6 Then
Text1.Text = ""
Text1.SetFocus
End If

If x = 7 Then
End
End If

End Sub

Private Sub Command3_Click()
End
End Sub

你在把``文本框的`显示的密码``改成``“*”就可以了！

("C:\Documents and Settings\Administrator\My Documents\My Pictures\样品.jpg") 这个是我计算机上的 ``图片地址，你自己可以改一下`！