Question

vb怎么限制文本框内的中英文字符数

我把文本框的Maxlength=12。这样英文字符确实是被限制了。但是中文就限制不住了。我要中英文结合的限制办法。例：张三12345678、隔壁老王1234、oO隔壁老王Oo。





Answer 1

LenB(StrConv( "大小", vbFromUnicode))
中文一个字返回长度2，英文和数字每个返回长度1

追问

能不能把Private Sub全部放出来。
初学VB搞不懂这些。

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Len(Text1.Text) = 12 Then KeyAscii = 0
End If
End Sub
Maxlength=12把这个设置为0

追问

不行。你这个限制不住

追答

你到底想怎么个限制法。。是让文本框内的所有字符总共12个 就是我给的代码
还是1个中文字符占2个位置 1个字符占1个 总共12个

追问

中文字符2个位，英文数字1个位

追答

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii 8 Then
If LenB(StrConv(Text1.Text & Chr(KeyAscii), vbFromUnicode)) > 12 Then KeyAscii = 0
End If
End Sub

追问

搞了半天原来VB和VB.NET区别这么大。我用的是VS2015的VB.NET。
没有LenB这个函数。
VB.NET你会吗

追答

System.Text.Encoding.Default.GetByteCount("内容")