主题：[求助]中英文混编的字符串长度

获取长度的方式改一下

Dim str As String = "中华abc"
Dim len As Integer = Encoding.default.getbytes(str).length
msgbox(len)

参考3楼获取字符数量。

全部的.length都要替换成3楼代码获取。具体自行修改。

Dim str = dt.sqlFind("[vformid]='"& frmname &"' and [ctlid]='"& sendername &"' and [Countryid]='"& ylanguage &"'", "len(poutcaption) desc")("poutcaption")

得到str以后，再求长度。

请具体说明哪句不行。自行学习编写代码啊

1、字符问题

lb.text = dr3("poutcaption").padright(len) & ":"

2、颜色问题，测试了一下，这个不清楚原因，暂时无法解决。

1、主窗口、停靠窗口等，都不正常。动态添加的控件label都不正常。

2、你要重新设置各个label的字体颜色才行，如 e.Form.controls("label3").foreColor = Color.red

Dim s1 As String="测试ID"        '6位
Dim s2 As String="我的编码规则"  '12位
Dim s3 As String
Dim len1,len2,len3 As Integer
len1= Encoding.default.getbytes(s1).length
len2= Encoding.default.getbytes(s2).length
len3=len2-len1
s3= s1 & "".PadLeft(len3,"0")
msgbox(s3)