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

2024-11-28 01:18:30

推荐回答（5个）

回答1：

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

回答2：

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

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

回答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

回答5：

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