VBA Object对象的函数参数传递CopyMemory VarPtr(VarPtr中保存的数据), VarPtr(rng), 4
Printf "VarPtr(rng) = x0%x, ObjPtr(rng) = 0x %x, VarPtr中保存的数据 = 0x%x", VarPtr(rng), ObjPtr(rng), VarPtr中保存的数据
TestObjectByVal rng
TestObjectByValByRef VarPtr(VarPtr中保存的数据), VarPtr(rng), 4
Printf "ByVal: VarPtr(rng) = x0%x, ObjPtr(rng) = 0x%x, Printf "ByRef: VarPtr(rng) = x0%x, ObjPtr(rng) = 0x%x, VarPtr中保存的数据 = 0x%x", VarPtr(rng), ObjPtr (rng), VarPtr中保存的数据
End Function
输出:
VarPtr(rng) = x022edd0, ObjPtr(rng) = 0xfaaddd0, VarPtr中保存的数据 =