下面的代码支持Unicode:Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)Private Sub Command1_Click()
Dim str As String Dim strDest As String Dim lLen As Long str = Text1.Text lLen = LenB(str) If lLen = 0 Then Exit Sub strDest = Space$(lLen) CopyMemory ByVal strDest, ByVal StrPtr(str), lLen strDest = StrConv(strDest, vbFromUnicode) Me.Print strDest End Sub
it is VB
如果用API可以吗?
Dim str As String
Dim strDest As String
Dim lLen As Long
str = Text1.Text
lLen = LenB(str)
If lLen = 0 Then Exit Sub
strDest = Space$(lLen)
CopyMemory ByVal strDest, ByVal StrPtr(str), lLen strDest = StrConv(strDest, vbFromUnicode)
Me.Print strDest
End Sub