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

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

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

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

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

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

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，你可以自己改