1,488
社区成员
![](https://csdnimg.cn/release/cmsfe/public/img/topic.427195d5.png)
![](https://csdnimg.cn/release/cmsfe/public/img/me.40a70ab0.png)
![](https://csdnimg.cn/release/cmsfe/public/img/task.87b52881.png)
![](https://csdnimg.cn/release/cmsfe/public/img/share-circle.3e0b7822.png)
大家有遇到标题的问题么?64位系统引用copymemory明显很慢很慢
举个例子:同样拷贝arr&(1 to 1000)至arrb&()中,100000次。CopyMemory arrb(1), arr(1), 4000
#If Win64 Then
Const MemoryUnit As LongLong = 8
Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal byteLen As LongPtr)
#Else
Const MemoryUnit As Long = 4
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal byteLen As Long)
#End If