189 8069 5689
上面思路是正确的， 用ascw 函数也可以
站在用户的角度思考问题，与客户深入沟通，找到临渭区网站设计与临渭区网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站建设、网站设计、企业官网、英文网站、手机端网站、网站推广、国际域名空间、网页空间、企业邮箱。业务覆盖临渭区地区。
private function LenC( ps as string ) as Integer
Dim n As Integer
Dim StrLen As Integer
For n = 1 To Len(Text1.Text)
If Ascw(Mid(Text1.Text, n, 1)) 256 Then
StrLen = StrLen + 2
Else
StrLen = StrLen + 1
Next n
return strLen
end function
1、VB中，用函数Len(B)就可以求出字符串a$的长度。
2、在VB中，一个字母、数字或汉字的长度均为1。比如：B="放假13天"，则运用函数Len(B)后的值为5,字符串长度就是5。
扩展资料：
1、Len函数和LenB函数：用途：Len返回文本串的字符数。LenB返回文本串中所有字符的字节数
2、语法：LEN(text)或LENB(text)。注意：此函数用于双字节字符，且空格也将作为字符进行统计。例如：如果A1=我爱编程，则公式“=LEN(A1)”返回4，=LENB(A1)返回8。
3、字符串函数（String
processing
function）也叫字符串处理函数，指的是编程语言中用来进行字符串处理的函数，如C，pascal，Visual以及LotusScript中进行字符串拷贝，计算长度，字符查找等的函数。
参考资料：字符串函数_百度百科
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If System.Text.Encoding.Default.GetByteCount(TextBox1.Text) = 11 And e.KeyChar Chr(8) Then
e.Handled = True
Else
e.Handled = False
End If
End Sub
这个不太完善，是假设原来文本长度已经有11就不允许继续输入，因为判断当下输入的是汉字还是英文很麻烦。
e.KeyChar Chr(8)这句是保证任何时候Backspace键都要有效。
希望能对你有所帮助。