首页 > 学院 > 开发设计 > 正文

将包含有Null结尾的字符串转换为VB字符串

2019-11-18 17:51:20
字体:
来源:转载
供稿:网友
在VB编程调用WindowsAPI函数时,经常会碰到以Null结尾的字符串,下面是一段将Null结尾字符串转换到VB字符串的函数:
PublicFunctionLPSTRToVBString$(ByVals$)
Dimnullpos&
nullpos&=InStr(s$,Chr$(0))
Ifnullpos>0Then
LPSTRToVBString=Left$(s$,nullpos-1)
Else
LPSTRToVBString=""
EndIf
EndFunction->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表