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

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!