vb中怎么设置文本框最少输入6个字符

加一个文本框，一个按钮，属性都是默认，加入以下函数

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

懂了吗？

你可以在程序中控制，textBox 我记得只能设置最大长度。

Sub textBox1_Change()
If Length(textBox1.text) < 6 Then
MsgBox "该框至少输入六位长度！"
End If
End Sub

可能 语法有误，请谅解，好久不用 VB 了。

可以判断
获取文本框内容再用Len字符串长度测试函数判断

maxlength属性设置

object.maxlenth=6