在VB6中用CopyMemory拷贝字符串的种种猫腻（一）
本文来自此帖的冗长讨论，感谢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
如上图所示，当我们在VB中调用CopyMemory ByVal String2, ByVal String1, 7的时候发生了如下事情：
①首先VB妈妈帮我们对String1和String2自动做了UA转换，也就是相当于做了如下事情：Dim _tmp1 As String, _tmp2 As String
_tmp1 = StrConv(String1, vbfromUnicode) '7 bytes
_tmp2 = StrConv(String2, vbfromUnicode) '7 bytes也就是说，两个14字节的Unicode字符串现在被存在两个7字节的ANSI字符串里了。
②然后CopyMemory函数就做实际的拷贝动作。注意，这时CopyMemory得到的参数不是String1, String2了，而是VB妈妈传给它的_tmp1, _tmp2了。所以，实际上，CopyMemory同学是在这么干活：CopyMemory ByVal _tmp2, ByVal _tmp1, 7。也就是，从_tmp1的缓冲区拷贝7个字节到_tmp2的缓冲区。
③CopyMemory同学干完活，VB妈妈又细心地做善后工作。它把_tmp2的内容再转成14字节的Unicode字符串，并把它给String2。
PS：
（1） 文字中带�
相关文档：
关于ActiveX的教程
Visual Basic是面向对象的程序设计语言，微软公司推出了ActiveX技术，利用ActiveX技术提出的标准，对界面的设计进行了封装，形成了一系列编程控件，即特定功能的程序模块。在程序的设计中，设计人员只需要拖动所需控件到窗体，然后对控件进行属性设置和使用其方法、事件即可，大大减轻了繁琐的程序设计� ......
有静态和动态两种，静态的需要lib而动态的只需要一个dll就可以了（但是要知道函数的定义一般是头文
件）动态相对复杂一点！但是掌握了也不是很难
//第一步 定义函数指针就是你要调用的函数，参数必须一致，不然就内存泄露
typedef HANDLE ......
使用oracle数据库有两种方法：
1、在客户端机器上安装oracle的客户端软件。唯一的例外就是java连接数据库的时候，可以用jdbc thin模式，不用装oracle的客户端软件。
2、如果你在机器� ......
VB中调用MSN 6.2 API函数
了解这方面内容的起因是早上有位朋友让我看一段关于MSN开发程序，现在无法运行，我打开工程发现是针对4.7编写的，而他的计算机安装的6,2，因为我也用6.2所以我在VB中查看了一下，发现是缺少Messenger Type Library。但是多了Messenger API Type Library，可能是做为Messenger Type Library的� ......
去年曾写过一篇博文，名称叫《用VB无窗口透明Usercontrol编写透明浮动按钮》，该文有一个观点是错误的，即透明无窗口Usercontrol不支持设计时点选。其实，通过在UserControl_HitTest过程里加入HitResult = vbHitResultHit语句，就可以实现设计时的点选了，为此，修改代码如下：
'* ******************* ......
