Label1.Caption =
LenB(StrConv(Text1.Text, vbFromUnicode))
如果使用len函数,则取到的是字符数。例如:
dim str as string
str='中国china1'
len(str)=8
而 LenB(StrConv(str, vbFromUnicode))=10
即汉字为两个字节
如果使用len函数,则取到的是字符数。例如:
dim str as string
str='中国china1'
len(str)=8
而 LenB(StrConv(str, vbFromUnicode))=10
即汉字为两个字节