¹ØÓÚVBÒýÓÃWideCharToMultiByte

Public Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, _
ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, _
ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, _
lpUsedDefaultChar As Long) As Long


ÏÖÔÚÎÒÔÚÈçºÎÒýÓÃ

Ôõô¶¼ÊÇlongÐ͵Äѽ

Dim Current_Settings as string

  Current_Settings = "µ±Ç°ÉèÖÃ"
Dim dwLength As Long
    Dim dwRet As Long
    Dim dwVal As Long
    dwLength = WideCharToMultiByte(cp_oemcp, 0, StrPtr(Current_Settings), -1, 0, 0, 0, 0)

ÎÒÒªÔõô´«,²ÅÄÜ°ÑCurrent_Settings Õâ¸öֵת³ÉANSIµÄ

---

ÓÑÇéUP!

---

UP£¡

---

UP
ѧϰ

---

Current_Settings=strconv(Current_Settings,vbfromunicode)