高校问答宝宝百天艺术照蛋壳:最简单不过的VB问题
来源：百度文库 编辑：高校问答 时间：2024/04/28 15:07:11
做一个密码登陆的，且密码长度要在10个以上，否则报错，而且没输入密码的时候按键为不激活状态
怎么写
怎么写
这里我只用两个控件，COMMAND1 和 TEXT1
其他的东西你自己应该可以搞定啦
Private Sub Command1_Click()
If Len(Text1.Text) < 10 Then '验证文本长度
Beep '报警音
MsgBox ("密码长度小于10位") '弹出MSGBOX对话框
End If
End Sub
Private Sub Text1_Change()
If Text1.Text = "" Then '说明文本没有输入密码时
Command1.Enabled = False '按键的可用性为FALSE
Else
Command1.Enabled = True
End If
End Sub