variant变量的格式有OLE定义，可以存放任何类型的数据，并以下图的格式用16个字节存放某些变量。

0-1
2-7
8-15

varType
Unused
Value


第0和1字节保存一个整数值，以指明在第8-15字节中存放的是何种类型的数据，第2到7字节一般情况下没有用，并且在大多数情况下，该变量的第8到15字节也不是全部用上。如：用一个variant变量保存了一个整形数，那么开始两个字节中的值为2-vbinteger，第8和9字节存放真实的16位值。

让我们写一段代码验证一下。

Dim v as variant ‘variant是vb的默认数据类型，所以也可以定义为dim v

v=1000

debug.print vartype(v) ‘输出结果2 vbinteger

另外换个方式检验：

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)



Dim v As Variant

Dim i As Integer

v = 1000

CopyMemory i, v, 2

Debug.Print "0-1位是" & i

CopyMemory i, ByVal (VarPtr(v) + 8), 2

Debug.Print "8-9位是 " & I

可以看到8-9位的结果是1000，而0-1位为2-vbinteger。

ArbHTML5中文学习网 - HTML5先行者学习网
ArbHTML5中文学习网 - HTML5先行者学习网