Dim nCount As Integer,nLen As Integer = 0
nCount = wcslen(lpStr)
Dim ch As WCHAR
Dim i As Integer
For i = 0 To nCount- 1 Step i + 1
ch = lpStr(i)
If ch >= 0x80 Then
If ch <= 0xFF Then
Dim - As ch = 0x80
Else If ch >= 0x2000 And ch <= 0x266F Then
ch = ch - 0x2000 + 128
Else If ch >= 0x3000 And ch <= 0x33FF Then
ch = ch - 0x3000 + 1648 + 128
Else If ch >= 0x4E00 And ch <= 0x9FA5 Then
ch = ch - 0x4E00 + 1648 + 1024 + 128
Else If ch >= 0xF900 And ch <= 0xFFFF Then
ch = ch - 0xF900 + 1648 + 1024 + 20902 + 128
End If
ch += 128
End If
pBuff(i) = ch
Next
End Sub
不壹定準確，僅供參考。 沒在VB裏面用過指針。
另外，這壹段在VB.net裏面沒事，在VB6裏面妳得把16進制數寫成 &Hxxxx才行。