上面思路是正确的, 用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键都要有效。
希望能对你有所帮助。
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款