VB“变态”用法之有用技术和没用指针

文章作者 100test 发表时间 2007:09:06 13:31:35
来源 100Test.Com百考试题网

　　Bill McCarthy在那篇《Modify a Varialbes Pointer》里用SafeArray实现多进程的数组共享内存，他考虑了数组变量的类型，因此可以兼容大部分数值类型的数组，是一个非常不错的东西。我这里不讲它实现的具体方法，只是想和大家一起看看SafeArray还能做什么。
　　
　　修改SafeArray结构的pvData指针却是一个非常有用的技术，通过修改pvData，就能够通过数组直接访问指定的内存。
　　
　　和上一篇文章包装字串指针类一样，通过修改pvData，我们也可以包装一些普通数值类型变量的指针类。
　　
　　我在指针的第一篇文章里说过，要想实现C语言里*这个取指针所指变量值功能，必须要用CopyMemory。实际上，我说错了，我们完全可以实现和C里一样的指针，如下：
　　
　　//C语言
　　Long L.
　　Long* pL = &.L.
　　*pL = 12.
　　printf("L = %d *pL = %d", l, *pl).
　　VB里
　　Dim pL As New pLong, L As Long
　　pL.Attach L
　　也可以 pL.Ptr = VarPtr(L)
　　pL = 12
　　Debug.Print "L =". L. " *pL =". pL
　　
　　结果都能够通过修改pL指针，达到修改变量L的目的。
　　
　　上面VB代码里的pLong就是一个包装好的Long型变量的指针类，下面看看如何来实现它：
　　
　　Option Explicit
　　********************************************************
　　pLong.cls
　　包装一个Long型指针的类
　　作者: 熊超 ID: AdamBear 2002年3月18日
　　http://www.csdn.net/Author/AdamBear
　　 你可以自由使用本类模块，不过请保留本声明
　　********************************************************