|
|||||
Public Declare Function WideCharToMultiByte Lib "Coredll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long Public Const CP_ACP = 0 ' default to ANSI code page Public Const CP_OEMCP = 1 ' default to OEM code page '' Return ANSI string from a pointer to a Unicode string. Public Function GetStrFromPtrW(lpszW As Long) As String Dim sRV As String ' sRV = String(Len( lpszW) * 2, &H0) ' 2 bytes/char WideCharToMultiByte CP_ACP, &H0, ByVal lpszW, -1, ByVal sRV, Len(sRV), &H0, &H0 GetStrFromPtrW = GetStrFromANSIBuffer(sRV) End Function ' Returns the string up to the first Null Char Public Function GetStrFromANSIBuffer(sBuf As String) As String If InStr(sBuf, &H0) Then GetStrFromANSIBuffer = Left(sBuf, InStr(sBuf, &H0) - 1) Else GetStrFromANSIBuffer = sBuf ' no null, so don't worry about it End If End Function 昔斗掛拭辞 達精 社什昔汽.. 戚杏稽 辞獄PC(VB)拭辞 左浬 (社掴搭重) 廃越戚 食穿備 照左戚革推.. "けけけけけけけけ." 戚係惟 蟹神革推.. 箸,, PDA拭辞 廃越 照凹走惟 馬澗 号狛聖 焼獣澗 歳精 伽!! 軒巴 採店球験艦陥. 昔斗掛拭澗 VC 切戟澗 弦揮汽.. EVB 切戟澗 蒸希浦推.. 採店球験艦陥.. 蓄探: |
|
| ||
|
|