C里面的offsetof函数,在VB里面怎么实现?

[naokizxx]

如题

[naokizxx]

我还以为是VB里有内置函数,哎................

[James0001]

offsetof 是一个宏。

在 vb 里用 VarPtr（虽然没有 offsetof 好用，但也没办法了）：

Type SOME_TYPE
a as byte
b as integer
c as long
d as currency
End Type

Dim stType as SOME_TYPE
offsetof_a = VarPtr(stType.a) - VarPtr(stType)
offsetof_b = VarPtr(stType.b) - VarPtr(stType)
offsetof_c = VarPtr(stType.c) - VarPtr(stType)
offsetof_d = VarPtr(stType.d) - VarPtr(stType)