[原创]VBA指针教程1

ioriliao

1. '先理解下变量的地址与指向这个地址的值。xx省xx市xx街xx号就是一个地址，
   
2. '指向这个地址的值就是这个地址就有什么。比如这个地址是张三家的地址，
   
3. '张三的家有什么呢？这个有什么就是这个地址所指向的值。
   
4. 'VB没用操作指针的语言特性，因此需要通过WinAPI函数来进行操作，下面我们将
   
5. '演示一个非常简单的指针操作，让大家在VB使用指针有个基本的了解。
   
6. 'CopyMemory函数参数
   
7. 'CopyMemory是WinAPI函数,为了演示我把其修改成了两个版本，
   
8. '版本1:CopyMemory1
   
9. '版本2:CopyMemory2
   
10. '版本1Destination及Source的参数是按照引用传递的(ByRef)
    
11. '版本2Destination及Source的参数是按照值传递的(ByVal)
    
12. '参数说明:
    
13. 'Destination
    
14. '要复制内存块的目的地址?
    
15. 'Source
    
16. '要复制内存块的源地址?
    
17. 'Length
    
18. '指定要复制内存块的大小，单位为字节
    
19. '返回值
    
20. '该函数为VOID型，没有返回值。
    
21. Private Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" _
    
22.         (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
    
23. 
    
24. Private Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" _
    
25.         (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)
    
26. 
    
27. '在Basic语言演变成QBasic，然后到Visual Basic之前，VarPtr函数就已经存在了。
    
28. '开始，这个函数存在于VB运行库1.0版中。VarPtr函数的作用获取变量的地址
    
29. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
30.     Dim long1 As Long
    
31.     Dim long2 As Long
    
32.     long1 = 10
    
33.     '版本1的CopyMemory
    
34.     CopyMemory1 long2, long1, 4
    
35.     MsgBox long2
    
36.     '版本2的CopyMemory
    
37.     Dim long3 As Long
    
38.     CopyMemory2 VarPtr(long3), VarPtr(long1), 4
    
39.     MsgBox long3
    
40. 
    
41. End Sub
    
42. 
    

复制代码

努力中......

学习一下,谢谢!

joforn

ioriliao
是我认识的那个ioriliao么 名字太像，随口问问。

ioriliao

肯定是啦，南宫兄。

joforn

原帖由 ioriliao 于 2010-6-1 13:40 发表
肯定是啦，南宫兄。

怎么你也跑这个论坛来了？呵呵。

ioriliao

冲着你来的，哈哈。。。

unsamesky

占位学习一下！！！！
API？？

yiyiyicz

做个记号，好好学习

HHAAMM

API  {:soso_e127:}{:soso_e126:}{:soso_e127:}