Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Dim n As IntegerPrivate Sub Command1_Click()
n = lstrlen("中英文混合Mixed" + Chr(0))
Text1.Text = n
End Sub
Chr(0)不能少,lstrlen靠chr(0)来判断字符结束
Dim n As IntegerPrivate Sub Command1_Click()
n = lstrlen("中英文混合Mixed" + Chr(0))
Text1.Text = n
End Sub
Chr(0)不能少,lstrlen靠chr(0)来判断字符结束
解决方案 »
- vb+sql 开发系统 update set
- 为什么那些vb中不是标准控件的只要换台机子就得重新添加呢???
- 本人有一个棘手的问题,想问问大家,请大家看看,谢谢!
- CSDN 是垃圾,上CSDN 的人更是垃圾,不是我乱说,事实如此,失望,从此不再上这个所谓的中国最大的开发者网站!!!!!
- 关于存储过程返回数据集的问题
- Dataset数据连接设定问题
- 【求助】VB怎样做半透明的下拉菜单?
- 在vb中截获键盘信息的问题!请赐教!
- 怎么指定Commondialog的"另存为"中要存储的对象,例如:我要把c:\a.mdb存到d:\去,怎样指定"c:\a.mdb"?
- vb中访问dll的问题
- 如何用ADO的Connection对象直接联接InterNet上的远程服务器?
- 在VB中如何给窗口分栏的问题,大家帮帮忙!
Dim len1 As Long
s = StrConv(text1.Text, vbFromUnicode)
len1 = UBound(s) + 1