shaoqiang的专栏

Private Sub Command1_Click()    Dim b(0 To 6) As Byte定义Ansi字符串存放字节数组   doVBUniCodeToAnsiByte "123斯", b    MsgBox StrConv(b, vbUnicode)Ansi字符串字节数组转UniCode字符串 End Sub  Private Sub doVBUniC

不能直接使用CopyMemoryStr，应该将字符串转为byte数组，然后使用CopyMemoryProperty Get item() As String    If h = 0 Then ErrRaise ERROR_INVALID_DATA    BugAssert p     Dim c As Long, ptr0 As Long    Dim ab() As Byte    取出