如何限制text控件输入的中文长度

Question

目的：
    设定maxLength = 10 ，可输入10个非中文字符，但只能输入5个中文字符，就是中文
字符算两个长度，该怎么作？

Answer 1

我这里～VB 6.0 SP6 XP
设.MaxLength = 10
可以输入10个中文字符……

Answer 2

VB 6.0处理字符串用的是Unicode
中英文都是一样按单字个数来处理的～

Answer 3

用 LenB(StrConv(Text1.Text, vbFromUnicode)) 来取得文本框里真正的字节个数，自己做判断限制

Answer 4

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

Answer 5

If LenB(StrConv(Text1.Text, vbFromUnicode)) > 10 Then
    MsgBox "超过！"
End If