在VB6中用CopyMemory拷贝字符串的种种猫腻（一）

版权声明：可以任意转载，转载时请务必以超链接形式标明如下文章原始出处和作者信息及本声明
作者：xixi
出处：http://blog.youkuaiyun.com/slowgrace/archive/2009/09/14/4549926.aspx

本文来自此帖的冗长讨论，感谢Tiger_Zhao的全程指点和陈辉、阿勇、马云剑等很多朋友的热心参与。本文其他部分在：（二）、（三）、（四）。

话说VB6是个很认真细致的妈妈，它会悄没声地帮你做很多事。今天我们来说的是VB6在API调用时自动对字符串参数进行转换的“好人好事”。 

第一节 体贴的VB妈妈

我们知道，在VB6中字符串都是以Unicode编码存在的，而Windows API函数中很多时候用的是ANSI字符串。VB妈妈害怕程序员们累着，所以在VB程序员调用API时，会自动的对其中的字符串参数做Unicode到ANSI的转换（以下简称 UA 转换），在API调用结束后会再把字符串参数做ANSI到Unicode的转换（以下简称AU转换）。这样说可能有点抽象，我们来看下面的例子。 '正确的ByVal String的用法 Option Explicit Const STR_E = "PowerVB" Private String1 As String Private String2 As String Private pString1 As Long Sub test7() Dim String1 As String Dim String2 As String ' Dim _tmp1 As String, _tmp2 As String String1 = "PowerVB" '14 bytes String2 = String$(7, 0) '14 bytes CopyMemory ByVal String2, ByVal String1, 7 ' _tmp1 = StrConv(String1, vbFromUnicode) '7 bytes ' _tmp2 = StrConv(String2, vbFromUnicode) '7 bytes ' CopyMemory ByVal _tmp2, ByVal _tmp1, 7 Debug.Print String2 End Sub