Dim TempLng As LongTempLng=AscW(……) If TempLng And &h80000000 Then TempLng=TempLng+&h10000 MsgBox TempLng
zyl910,以前你不是帮我写过一个程序求Unicode值的吗?
dim f dim h1 as integer,h2 as integer if text1.text="" then else f=hex(asc(text1.text)) h1=cint("&H",mid(f,1,2)) h2=cint("&H",mid(f,3,2)) text2.text=hex(h1)+hex(h2) end if
If TempLng And &h80000000 Then TempLng=TempLng+&h10000
MsgBox TempLng
dim h1 as integer,h2 as integer
if text1.text="" then
else
f=hex(asc(text1.text))
h1=cint("&H",mid(f,1,2))
h2=cint("&H",mid(f,3,2))
text2.text=hex(h1)+hex(h2)
end if