5个回答
推荐于2017-09-09
展开全部
加一个文本框,一个按钮,属性都是默认,加入以下函数
Private Sub Text1_Change()
if len(text1.text) >= 6 then
Command1.Enabled = True
else
Command1.Enabled = False。
Private Sub Text1_Change()
if len(text1.text) >= 6 then
Command1.Enabled = True
else
Command1.Enabled = False。
展开全部
加一个文本框,一个按钮,属性都是默认,加入以下函数
Private Sub Text1_Change()
if len(text1.text) >= 6 then
Command1.Enabled = True
else
Command1.Enabled = False
End Sub
懂了吗?
Private Sub Text1_Change()
if len(text1.text) >= 6 then
Command1.Enabled = True
else
Command1.Enabled = False
End Sub
懂了吗?
参考资料: http://hi.baidu.com/peaset
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你可以在程序中控制,textBox 我记得只能设置最大长度。
Sub textBox1_Change()
If Length(textBox1.text) < 6 Then
MsgBox "该框至少输入六位长度!"
End If
End Sub
可能 语法有误,请谅解,好久不用 VB 了。
Sub textBox1_Change()
If Length(textBox1.text) < 6 Then
MsgBox "该框至少输入六位长度!"
End If
End Sub
可能 语法有误,请谅解,好久不用 VB 了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以判断
获取文本框内容再用Len字符串长度测试函数判断
获取文本框内容再用Len字符串长度测试函数判断
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
maxlength属性设置
object.maxlenth=6
object.maxlenth=6
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询