怎么实现
1、得到结果是十二个字符数量呢？谢谢！
Output.Show(UKey.LenStrA("请注意参会:下午两点半!"))
得到结果22字节
Dim str As String = "请注意参会:下午两点半!"
str = System.Text.RegularExpressions.Regex.Replace(str, "[^\u4e00-\u9fa5]", "")
msgbox(str)
msgbox(str.length)
得到十个汉字数量，但是没有统计：！这两个
2、如果字符大于60以后，根据输入的总数除以60计算出拆分的条数！
Dim str As String = "请注意参会:下午两点半!请注意参会:下午两点半!"
str = System.Text.RegularExpressions.Regex.Replace(str, "[^\u4e00-\u9fa5]", "")
Dim ab As Integer=str.length/60
If ab <> 0 Then
MessageBox.Show("当前内容分成"& ab & "条发送")
Else
MessageBox.Show("当前内容分成1条发送")
End If
有没有比上面这个代码更好的计算方法呢？
3、如果文本框输入字符数大于255，提醒输入达到最大，并且不能允许256后的字符输入文本框！
If e.Col.name = "信息内容" AndAlso e.Text > "" AndAlso e.Text.Length <> 255 Then
e.cancel= True
End If
这个代码没有达到我想要的效果，当前依然是系统自动判断大于255的就进行了截取，但是我想要实现的是文本框直接输入到255个字符后就不能输入了！
[此贴子已经被作者于2019/2/20 14:23:12编辑过]
加好友 
发短信
Post By：2019/2/20 13:41:00 [只看该作者]
