请问在vb中怎么把中文转成unicode码？

Question

我在网上找了很久，也找不到关于VB6.0转码的程序。我想把文本框内的中文转成unicode码？
　例如：“您好”转成“%60%a8%59%7d”

Answer 1

那就用ASCW()一个字一个字地转换吧.

Answer 2

Private Sub Command1_Click()
   Dim aa As String
   Dim strTemp As String
   Dim i As Long
   aa = "您好"
   
   For i = 0 To Len(aa) - 1
      strTemp = strTemp & Hex(AscW(Mid(aa, i + 1, 1)))
   Next
   Debug.Print strTemp
End Sub结果： strTemp="60A8597D"

Answer 3

我写了这么一个函数，贴给你试试。'取汉字的Unicode代码
Public Function GetUnicode(str1 As String) As String
    Dim tmpStr As String
    Dim tmpByt() As Byte
    Dim iTextLen As Integer, i As Integer
    
    tmpStr = ""
    If Not (IsNumeric(str1)) Then
        tmpByt = StrConv(str1, vbWide)
        iTextLen = LenB(str1)
        For i = 1 To iTextLen Step 2
            tmpStr = tmpStr & "&H" & Right("0" & Hex(tmpByt(i)), 2) & _
    Right("0" & Hex(tmpByt(i - 1)), 2)
        Next
    End If
    
    GetUnicode = tmpStr
End Function