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

　2006-02-27 11:41:52　来源：WEB开发网　　　

核心提示：在VB编程调用WindowsAPI函数时,经常会碰到以Null结尾的字符串,下面是一段将Null结尾字符串转换到VB字符串的函数:PublicFunctionLPSTRToVBString$(ByVals$)Dimnullpos&nullpos&=InStr(s$,Chr$(0))Ifnullpos>0ThenL

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