【VB】VB6的指针操作

0xAA55

使用指针，不是为了去使用它而使用它，而是要合理地使用它。

1、调用API的时候传递指针参数的方法：
声明API的时候把该参数定义为“参数名 As Any”或“ByVal 参数名 As Long”。如果是前者，参数请直接填写变量名、数组元素或常数，这样VB6就会把变量的地址、数组元素的地址、常数的地址（这个常数被放到数据段，然后这里VB会自动获取它的地址）作为参数传递给API。如果是后者（即“ByVal 参数名 As Long”）那么调用的时候请把参数的地址传递给它（用VarPtr取地址）
举例：VB播放内存中的WAV文件数据。

1. '声明：
   
2. Declare Function 播放WAV Lib "winmm.dll" Alias "sndPlaySoundA" (声音文件的指针 As Any, ByVal 标识 As Long) As Long
   
3. Const SND_MEMORY = &H4
   
4. Const SND_ASYNC = &H1
   
5. Global 声音文件的数据() As Byte '声音文件的内容
   
6. 
   
7. '初始化：
   
8. Sub LoadWAV() '载入WAV的子程序
   
9. Open "D:\A.WAV" For Binary Access Read As #1 '声音文件到内存
   
10. ReDim 声音文件的数据(LOF(1) - 1) '分配内存
    
11. Get #1, , 声音文件的数据 '一次性读取全部
    
12. Close #1
    
13. End Sub
    
14. 
    
15. '播放
    
16. Sub PlayWAV()
    
17. 播放WAV 声音文件的数据(0), SND_MEMORY Or SND_ASYNC '传递数组第一个元素的地址
    
18. '因为是这样调用的，所以声明也可以是Declare Function 播放WAV Lib "winmm.dll" Alias "sndPlaySoundA" (声音文件的指针 As Byte, ByVal 标识 As Long) As Long
    
19. End Sub

复制代码

如果你需要传递NULL，并且参数的类型是Any，那么请直接使用vbNull即可。

2、自己内部使用指针的方法：
如果你是为了将一个结构体作为参数传递，那么请你相信：VB6会自动帮你传递结构体的指针，然后你的函数体内使用这个结构体的代码会被VB翻译成使用这个结构体指针的代码。
如果你是为了将一个数组作为参数传递的话，那么请你直接在定义函数的时候定义数组参数即可。如下：

1. Sub 某过程(数组() As Byte) '字节数组
   
2. 数组(0) = 233
   
3. End Sub

复制代码

3、VB取函数地址
用AddressOf。但是这个只能取Module里面的函数的地址。不能取Form和Class的成员函数的地址。例子请看这里

4、VB拷贝内存
直接用RtlMoveMemory即可。声明：

1. Declare Sub RtlMoveMemory(Dest As Any, Src As Any, ByVal Len As Long)

复制代码

5、VB编写回调函数，参数列表的写法对应VC++的例子：
VB的“结构体 As 结构体类型”相当于VC++的“结构体类型 &结构体”
VB的“ByVal 长整型 As Long”相当于VC++的“long 长整形”
VB的“长整型 As Long”相当于VC++的“long &长整形”
VB的“数组() As 某类型”相当于VC++的“SAFEARRAY &数组”
当VC++想把一个字节数组传递给VB的时候，VB要这么声明：“ByVal 数组指针 As Long”或者“数组 As Byte（因为是字节数组） ”
然后VB只能通过RtlMoveMemory来控制整个数组。可以先内部用动态数组分配内存，然后用RtlMoveMemory来复制内容到自己的数组以便于操作，最后再用RtlMoveMemory把处理的结果复制出来（因此这样的程序最好不用VB写）
VB所有的函数都是_stdcall

6、VB的字符串数组
VB的String是字符串，它的存储结构是这样的：
4个字节的字符串长度在前。
后面是不定数量的Integer，这些Integer组成了UNICODE字符串，所谓UNICODE字符串的特点就是：无论什么字符，都占用两个字节。
有些API是以A结尾的（ANSI），有些API是以W结尾的（Wide），比如MessageBoxA和MessageBoxW。它们的区别就是A结尾的把字符串当做多字节字符串处理，而W结尾的则把字符串当做UNICODE处理。VB的String是UNICODE，那么VB应该调用哪个API呢？
答案是A结尾的API。因为VB会在调用API的时候自动转换字符串为多字节字符串，然后把字符串作为参数传递给API。API返回后，VB则会自动把得到的多字节字符串再转换成UNICODE返回。比如下面这样的代码：

1. Declare Function MessageBoxA Lib "user32.dll" (ByVal hWnd&, ByVal 提示 As String, ByVal 标题 As String, ByVal 风格 As Long) As Long
   
2. 
   
3. '调用
   
4. Sub ShowMsg()
   
5. MessageBoxA 0, "我操这是提示", "API对话框", 0 '最后一个参数0就是MB_OK
   
6. End Sub

复制代码

虽然你调用的是MessageBoxA而不是MessageBoxW，而且给的参数就是VB的字符串（UNICODE编码），但是VB在背后帮你把它转换成ANSI然后传递给MessageBoxA，因此你会看到一个正常的对话框。
注意VB的""并不是NULL，而是一个长度为0的字符串（占用内存4字节）如果要把NULL传递给API请使用vbNullString，这东西相当于C、C++的NULL。
C、C++的'\0'相当于VB的vbNullChar

wypabcd

vb学习中，非常有收获

cxx

学习一下

xiawan

啥也不说了，感谢楼主分享哇！