Question

vb中在text中输出的数据,怎么限制其输出位数?求救

Answer 1

　　设置Text1.MaxLength属性：text1.maxlenght=10，限制为10。
　　下例是只能输入数字和大小写字母，长度为7位到10位，当位数不足7位时，command1.eanbled=false：

Private Sub Form_Load()
Command1.Enabled = False
End Sub

Private Sub Text1_Change()
If Asc(Right(Text1, 1)) < 0 Then
MsgBox "请不要输入中文"
Text1 = Left(Text1, Len(Text1) - 1)
ElseIf Len(Text1) >= 7 And Len(Text1) <= 10 Then
Command1.Enabled = True
ElseIf Len(Text1) > 10 Then
Text1 = Left(Text1, 10)
Text1.SelStart = Len(Text1)
End If
End Sub

Answer 2

有点记不清了..

在属性窗口中就可以设置的...

或是在 text change 动作中添加代码判断然后截断

if len(text1.text)>5 then
msgbox "只允许输入5位字符串!"
text1.text = substring(text1.text,0,5)
end if

好像是这样,很久没写vb了

Answer 3

例如只能输入不多于5个字符

Private Sub Form_Load()
Text1.MaxLength = 5
End Sub

Answer 4

MaxLength属性