【学习笔记】VB使用指针

获得指针
VarPtr()
StrPtr()
ObjPtr()

复制内存
CopyMemory 目的变量，源变量，长度 '注意的传值是ByRef
CopyMemory ByVal pb,byVal pa,4 '可以使用ByVal强制传值

Eg 1
Dim a as String ,b as String
a = "abcde"
b = string$(100,vbnullchar) '填充100个字符空间，vbnullchar是空字符
copymrmory Byval b,byval a ,10 '注意a，b是字符串，自身包含地址
b = left(b,instr(b,vbnullchar)-1) '去掉多余的vbnullchar
Eg 2
dim a as string ,b as string
dim pa as long ,pb as long
a = "abcde"
b = string$(100,vbnullchar)
pa = strptr(a)
pb = strptr(b)
copymemcry byval pb,byval pa,10
b = left(b,instr(b,vbnullchar)-1)
Eg 3
dim a as string ,b as string
dim pavar as long,pbver as long
dim pa as long ,pb as long
a = "abcde"
b = string$(100,vbnullchar)
pavar = strptr(a)
pbvar = strptr(b)
copymemcry pa,byval pavar,4
copymemcry pb,byval pbvar,4
copymemcry byval pb,byval pa,4
b = left(b,instr(b,vbnullchar)-1)

对象的弱引用【可跳过引用计数】
dim 对象变量 as 对象所属的类
copymemory 对象变量, 对象地址,4
对象变量.XXX
copymemory 对象变量, 0&,4 '记住一定要删除，一定要删除

使用指针实现不同类型数据的交换
1.超过一字节的存储形式是：低位数据在低地址（字节编号叫小的地址），高位数据在高地址
2.只要是字节数相同，不管是什么数据类型都可以互换

使用指针实现不同窗体模块的数据交换【十分有用】
1.将本窗口模块内的数据变量地址传递给其他窗口
2.其他窗口对这个地址变量进行操作
3.当然也可以用模块封装一下
传递数组指针来实现传递数组参数
Sub，Function传递数组参数效率是十分低下！因为他传递的是一个数组描述符(包含很多东西边界，类型……)。
直接传递指针可以跳过这个东西。
1.首先要知道数组的第一元素的位置(是具体的元素)，然后知道具体的长度
2.copymemory 处理一下就完了
Long型数据可以传递任意类型大小的数据
1.可以使用一个字节数组保存数据
2.用copymemory 将数据分出来。(每个源地址，要根据上一个数据大小来确定)

Or按位运算对负数存在潜在问题
比如像&H10000 or &H8000 结果是 &HFFF800（错误）
因为&H8000是-32768是两字节，而&H10000是四字节，vb优先就对&H8000进行扩充，然而负数在补码的体现是最高必须是1，所以他补的两个字节位全是1，就变成了&HFFFF8000……Orz
解决的办法
&H8000& or &H10000
用&强制声明为4个字节的长整形。
or 可以是多个属性的组合
and 可以是保留我们需要的数字（00010，我想保留两位）

相对于楼主的学习笔记
我更关心的是楼主的签名档和头像
怎么都是东洋的样子？

8楼：
Or按位运算对负数存在潜在问题
比如像&H10000 or &H8000 结果是 &HFFF800（错误）
这根本就不是“错误”，所谓错误，也是“人”的问题：
　　根本没有搞清楚VB6的一些细节、数据类型及“类型转换”的具体规则造成。

7楼：
Sub，Function传递数组参数效率是十分低下！因为他传递的是一个数组描述符(包含很多东西边界，类型……)。
真不知道楼主从哪来的结论！你可曾验证过吗？
是自己“拍脑袋”想的、还是被别的什么训导的？
反正我在此之前不曾验证过，但肯定知道它不会象楼主说的那样传递“数组描述符”。
刚才写了一段代码，对1维数组测试了一下，明显就是“直接引用”传递的数组！
数组描述符的内容，1维数组是24字节，
为了减少列表显示行数，我用Long类型方式读取，显示其字节序列。

测试代码如下：

@涐吢铱舊囿儚 的确我没有好好测试过，盲目听信书本上的知识了，你能帮忙纠正我还是十分感谢的！就是有几个问题想问一下，好帮助理解一下
1.


&H10000 or &H8000 ，不应该是H18000？当然我也能理解可能是特殊情况需要这么计算
但是我们可能考虑的只是普通情况下的问题？
2.第二列子，我都开始怀疑我看来假书……Orz


这个我的确有发懵了，可以介绍一下吗？

你的“第1个”，我觉得也许用这样一张图表达得清楚点：

在运算时，如果类型不同，所有计算机语言都是遵从“低精度向高精度扩展”的约定。
因为VB6的整数都是“带符号”的，因此&H8000扩展到Long类型时就扩展符号位，
　　变成&HFFFF8000了，这样它们的“值是相等”的。
第2个，“VB6拾遗”那儿说的完全是正确的。
至于你的那个“书”，能看到的内容，也没什么不对。
因为“不完整”，不能肯定的说它是对是错。
但它说的“绕开数组描述符”的说法，恐怕就不正确了！
在VB6中，数组元素只有“安全数组”这一种访问机制，无论如何都不可能“绕开”！
只不过利用“指针”的方式：
可以把数组A的元素直接绑定到数组B上，通过数组B访问；
可以把数组A的元素类型TypeA、通过数组B并且按类型TyteB访问；
（比如A是Long类型、有100元素，可以绑定到B上、并且是Byte类型、400元素）
可以把数组A的维度vA、通过数组B的维度vB访问。
比如A是1维、Long类型、100元素，
可以绑定到B上、同样Long类型、2维、可以是4X25、也可也是5X20，等等……
同样可以绑定到B上、Byte类型、2维、可以是4X100、也可以是8X50，20X20……
　　　　也可以是3维，2X2X100，或者4X4X25，等等……
我这儿说的“绑定”，指的是“数组元素的数据空间”是同一块内存，
　　　不需要单独分配数据空间、再CopyMemory。
数组A、数组B可以“表面上看起来互不相干”（比如分别是不同过程中的局部变量），
　　但A对元素的修改，直接“反映”到数组B中；
　　同样通过B修改数组元素，在数组A中也是直接变化。