由於正好需要乙個繁體轉簡體的事情,弄這個函式將就用一下了。
private declare function lcmapstring lib "kernel32" alias "lcmapstringa" ( _
byval locale as long, _
byval dwmapflags as long, _
byval lpsrcstr as string, _
byval cchsrc as long, _
byval lpdeststr as string, _
byval cchdest as long) as long
private declare function lstrlen lib "kernel32" alias "lstrlena" (byval lpstring as string) as long
function convertchinesesimplifiedortraditional(byval strsrc as string, byval bsimplified as boolean) as string
dim lngsrclen as long
dim strbuffer as string
lngsrclen = lstrlen(strsrc)
if lngsrclen = 0 then exit function
strbuffer = space(lngsrclen)
if bsimplified then '轉換為簡體
lcmapstring &h804, &h2000000, strsrc, lngsrclen, strbuffer, lngsrclen
else
lcmapstring &h804, &h4000000, strsrc, lngsrclen, strbuffer, lngsrclen
end if
convertchinesesimplifiedortraditional = strbuffer
end function
VB6用API實現繁體簡體轉換
private declare function lcmapstring lib kernel32 alias lcmapstringa byval locale as long,byval dwmapflags as long,byval lpsrcstr as string,byval cchs...
Vb 實現簡體轉繁體
lcmapstring 映像字串 private declare function lcmapstring lib kernel32 alias lcmapstringa byval locale as long,byval dwmapflags as long,byval lpsrcstr as ...
API實現快速轉換簡體字與繁體字
private declare function lcmapstring lib kernel32 alias lcmapstringa byval locale as long,byval dwmapflags as long,byval lpsrcstr as string,byval cchs...