VB中密码的代码与按钮的控件.docVIP

上机实验—2012.3.27 实训教程 P12【实训3-3】 P17【实训4-1】 P18【实训4-2】 教材 【例4-2】 要求：用户名不超过6位字符，密码不超过18位。如果输入错误，允许重新输入。密码输入时字符以“*”代替。若输入的密码有误，弹出提示信息。如果选择“重试”则允许再次输入；选择“取消”按钮则程序停止运行。假设用户名为：admin，密码为：yyyy。 界面设计： 对象属性设置： 对象 名称 属性 属性值 窗体 form1 caption 用户信息验证 标签 label1 caption 用户名 font 黑体，小四 标签 label2 caption 密码 font 黑体，小四 文本框 Text1,text2 text 空 命令按钮 cd1 caption 确定 参考代码： Private Sub Form_Load() Text1.MaxLength = 6 Text2.MaxLength = 18 Text2.PasswordChar = * End Sub Private Sub Text1_LostFocus() If Text1.Text admin Then MsgBox 用户名错误！, vbExclamation, 输入用户名 Text1.Text = Text1.Set