VB基础类
API函数，多用了一组括号怎么就不一样那
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, Optional ByVal Length As Long = 4)
Private Sub Form_Load()
Dim a(10) As Byte, i, b As Integer, c As Long
For i = 0 To 10
a(i) = i
Next i
Debug.Print Hex(a(2)), Hex(a(1)) '源
CopyMemory b, a(1), 2& '内存复制
Debug.Print Hex(b) '内存复制后
Debug.Print Hex(a(4)), Hex(a(3)), Hex(a(2)), Hex(a(1)) '源
CopyMemory c, a(1), 4& '内存复制
Debug.Print Hex(c) '内存复制后
Debug.Print Hex(a(2)), Hex(a(1)) '源
CopyMemory b, (a(1)), 2& '内存复制,多用了括号
Debug.Print Hex(b) '内存复制后
Debug.Print Hex(a(4)), Hex(a(3)), Hex(a(2)), Hex(a(1)) '源
CopyMemory c, (a(1)), 4& '内存复制,多用了括号
Debug.Print Hex(c) '内存复制后
End Sub运行结果
2 1'复制前
201'复制后
4 3 2 1'复制前
4030201'复制后
2 1'复制前
1'复制后
4 3 2 1'复制前
1'复制后
为什么多用了括号，复制的结果就不同那。
...全文
