主题：如何获取排列整齐的字符长度？换言之，如何计算中文和英文或者符号的真实长度？

我想写一个函数把字符串补齐到指定长度。

但我发现及时不起之后，看起来还是不整齐。

因为，.Length 虽然都等于2 但“中国”和 “AB”显然不一样长。

怎么处理这种情况？

换言之，如何计算中文和英文或者符号的真实长度？

参考

Dim s = "中国ABC"
Dim c = Encoding.default.GetBytes(s)
msgbox(c.length)

读取像素长度，参考

Dim g As Graphics = basemainform.creategraphics
Dim fnt As New Font("宋体",9)
Dim msg As String = "abc"
Dim size = g.MeasureString(msg, fnt)
msgbox(size.width)

Encoding.default.GetBytes(s).Length

这样是获取到s的字节数吗？（1个汉字 = 2个字节）

是的。

甜老师，非常感谢！

非常整齐！