Question

vb的textbox如何限制输入的字节数呀？

有可能文本框中会有数字、英文、汉字的组合，要求文本框只能输入指定的字节数，怎样才能实现呀，请高手指点。
补充：VB提供的maxlength的属性是没有办法实现的。

Answer 1

在KeyPress中加入：
If KeyAscii=8 Then Exit Sub '按的是删除键则不处理
If LenB(Text1.Text)+IIf(KeyAscii<0,2,1)>限定字节数 Then KeyAscii=0 '当KeyAscii<0时输入的是两字节的字符（如汉字）

Answer 2

给你一个简单的办法：
Private Sub Text1_Change()
Dim L As Integer, i As Integer
For i = 1 To Len(Text1.Text)
If Asc(Mid(Text1.Text, i, 1)) > 0 Then
L = L + 1
Else
L = L + 2
End If
Next i
If L > 10 Then MsgBox "输入长度超标！"
End Sub

Answer 3

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim strD As String
strD = StrConv(Text1, vbFromUnicode)
If LenB(strD) >= 8 Then KeyAscii = 0'假如限定8个字节,注意英汉搭配时,字节数的限定
End Sub

Answer 4

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If LenB(Text1) >= 4 Then KeyAscii = 0

End Sub

Answer 5

只能输入 4 字节数的例子：

Private Sub Text1_Change()
Dim nStr As String
nStr = Text1.Text '假如是： "12控件"
nStr = StrConv(nStr, vbFromUnicode)
nStr = LeftB(nStr, 4)
Text1.Text = StrConv(nStr, vbUnicode) '返回：12控
End Sub