VB6中的安全数组SafeArray问题？？

[wzxiaodu]

http://blog.csdn.net/adambear/article/details/13702
看了上面的文章，
测试了上面一小段代码，结果出错，想知道原因？？请高手帮忙！！

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal dest As Long, ByVal Source As Long, ByVal bytes As Long)
Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long

Private Sub Command1_Click()
    Dim ppMyArr As Long, pMyArr As Long, nDims As Long
    Dim MyArr(1 To 8, 2 To 10) As Long
    
    '先得到一个指向SafeArray结构的指针的指针，原理是什么，我后面说。
    ppMyArr = VarPtrArray(MyArr)
    '从这个指针的指针得到SafeArray结构的指针
    CopyMemory pMyArr, ByVal ppMyArr, 4
    '再从这个指针所指地址的头两个字节取出cDims
    CopyMemory nDims, ByVal pMyArr, 2
    MsgBox "这个数组有" & nDims & "维"
End Sub

上面代码，运行后
程序崩溃了！！！

[脆皮大雪糕]

问题在你的API函数声明上。 第一行，ByVal dest As Long 改成 ByRef dest As Long 因为这个参数在后面你都是直接传递变量，而不像第二个参数那样都是先取指针再传具体的地址进去。

[海鸥软件]

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, _ Source As Any, ByVal Length As Long) Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long Private Sub Command1_Click() Dim MyArr(1 To 8, 2 To 10, 3 To 5) As Long Dim pArray As Long, ppArray As Long, nDims As Long ppArray = VarPtrArray(MyArr) CopyMemory pArray, ByVal ppArray, 4 CopyMemory nDims, ByVal pArray, 2 MsgBox nDims End Sub copymemory函数要分按值和按址传递，那么函数的使用是有区别的，按址想办法传递的是地址值 ，按值传递的是具体内容

[海鸥软件]

不像vb中普通函数那样，按值传递的就是值 按址传递的就是地址，copymemory是先取变量地址再取值