VB中怎样限定text输入框中输入的字数

Question

编写一小段程序，要求在text5中只能输入的字符在160以内。而且已经输入的字符数要计算出来并显示在n/160中。超过160的不显示，并提示“已到最大字符数”
请各位大哥帮帮忙。不胜感激！！

Answer 1

Sub s()
    Text1.MaxLength = 8'设置Text输入最长为8个字符
End Sub

Answer 2

VB中限定text输入框中输入的字数,有两种方法可以实现：
1、直接在text文本框属性中定义MaxLength的值，MaxLength是设置文本框允许输入的字符最大数。超过设置数后，将不允许继续输入内容。
2、代码实现：
Private Sub Text1_Change()
If Len(Text1) >= 160 Then MsgBox "你已经输入了160个字，已到最大字符数！"
End Sub

Answer 3

Private Sub Text5_Change()
If Len(Text5.Text) > 160 Then
Text5.Text = Left(Text5.Text,160)
MsgBox "已到最大字符数"
End If
Label1.Caption = Len(Text5.Text) & "/160"
End Sub

直接加到你的代码框里就可以限制Text5里的字数了，超出的就删了，到了也会有提示，在label1里也会显示n/160，由于你没告诉我你用哪个控件显示n/160，我用的是label1，你可以自己改本回答被提问者采纳

Answer 4

Private Sub Form_Load()
Text1.MaxLength = 160
End Sub
Private Sub Text1_Change()
Label1.Caption = Text1.MaxLength - Len(Text1.Text) & "/160"
If Len(Text1) = 160 Then
Label1.Caption = "已到最大字符数"
End If
End Sub

Answer 5

Inputmask属性设置160能解决你的问题,不用写代码来控制