我用了如下的方法,但是不成功:
Private Sub Command1_Click()
Dim strUnicode As String
Dim strAnsi As String
Dim lResult As Long strUnicode = "abcdef"
lResult = WideCharToMultiByte(0, 0, strUnicode, Len(strUnicode), strAnsi, 255, "", 0)End Sub
Private Sub Command1_Click()
Dim strUnicode As String
Dim strAnsi As String
Dim lResult As Long strUnicode = "abcdef"
lResult = WideCharToMultiByte(0, 0, strUnicode, Len(strUnicode), strAnsi, 255, "", 0)End Sub
strconv(str,vbfromunicode)