【学习笔记】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，我想保留两位）

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


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


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