lstrlen: 【VB声明】 Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long【别名】 lstrlenA用vb自身的语句也可以实现: Option ExplicitPrivate Sub Command1_Click() Dim s As String s = "中国人民csdn220322" Dim i As Long i = LenB(StrConv(s, vbFromUnicode)) MsgBox i
如果要获得字符串转换成 DBCS 后的字符长度的话,用 lstrlenA 。
【VB声明】
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long【别名】
lstrlenA用vb自身的语句也可以实现:
Option ExplicitPrivate Sub Command1_Click()
Dim s As String
s = "中国人民csdn220322"
Dim i As Long
i = LenB(StrConv(s, vbFromUnicode))
MsgBox i
End Sub